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for uour oun 
Tips 


machine language routines. 


LOAD "PFASCAL" 


using the LOAD kauward an the J ين8‎ Preis 
recorder. Tne first recordeng an the tate 12 3 








ENTER, then nrezs Flau an tne tae 
22310 cerocrz* called "F&SCAL". Tre 





J.J Manual Design 

Chapters |, 2 and 3 should be read in order at the co rile using Partial 
Pascal for the first tige. Chacters 1, 2 and 3 cover the sechanics of using the 
editor, compiler and loader 5" dencnstrating ine composition, comprlation 2nd 
execution of 4 sample orcaram. Chapters 4 and & comelete the description of the 
Partial Pascal lanauege and chiater à completes the description of the editor, You mes 
want to skim cheater 6 sanis to ses all the editor has to offer, 

2 Terminologu and Fundamsni als 

“Pascal js a ۶7ھ‎ neanted bo Professor Nibleu 
the Suiss Instituts nf E sustenst zopreogrambiog ! 
miprove the teaching of ã2 Deen 4 teemendogus success 
teaching and in practic catia aril popular on micrecomout 

۵8 Pascal coaniler conne ci ۾ 207 2۴ 9م ع!‎ "source proaorin ef 
of readable characters: letter: dig ces and ounctuation marke. An ed:tor, 
itself a commuter program, nelos com curce nrggram. û Pascal compiler, another 
computer program, raids in e source | end writes out an "object prearam.” The 
ahiect program is executable ^g your r. When inis manual tales about "voun 
— in the context of coscosing ns ths source orcaram that ucu write usin2 
the editor, In the context 5f execut means the object program written out by 
the rospiler. 

Pascal nrearine write ii] their output to files end read all {hazir input from 
files. à fils haz a name ured in i3 source ووموومع‎ to resresent in ingut or رع ڈراہ‎ 
device connected te ucun covnuter. "Insut" and "read" apniu io transfer of data to th 
computer fron sons lees central (i.e, peripheral? device. "Outout" and “write” یا دع‎ 
to transfer 2f diti fron ihe cOWDutiD to 2 peripheral device. 

In Partial Pascal, the selection of which devices will be used with which files is 
nastooned until the nrocein tn its object fore is about to begin execution. 

Data saved on tase bu Partial Faecal programs, including that written bu the edit 
and compiler, is given 3 nase at the ١ it is written out, Snen û oregren writes 
data te a file for uhich uou've select he tage recorder as the “device”, Fart: al 
Pascal saves ibe data in c hus fer in menory until either the buffer is fuli cr the 
nrocras indicates (t has no more date to write. Partial Fascal then asks you to supp! 
3 f2-character name fer the dita. Pirtial Pascal records a reader, which includes tne 
Name uou Sunol, and the date. This manuel calls the header and datz on the tape 2 

| "data set", and tne name in the header :s the "data set naue". The data ssi name 
Serves t^ disti ]: 81 002لاد‎ the date sets on 3 ade. 

When a proarem has tc read dita free a tape, Partial Fascal ask? you for the date 
set name uou provided unen the data uas recorded. Fartial Fascal searches the tere fe 
a data Set with that nime ind reads the data from it into a tuffer and provides *he 
data to the programs fran» the buffer, ۱ 
1.3 Loading Fartial Pascal 

For a 7X81 nr Timex Sinclair 1200, install the 16K RAM pack on the back of the 
comouter. Connect the TU and cower cables nonsallu. Connect the cable ےت ساط‎ the tee 
recorder’s earphone tack and the comeuter’s EAR jack. Insert the tape and ٤ 
fully. See section S.11 if you have wore than LSK of RAM or veu' wish to reserve 535 


A 


۶۸31٤0 program starts automaticailiu and invokes a machine language routine that reads 
in Fartial Fascal fron tne second recording on tne reps. 

During loading four patterns should display on the TV, 

1) The TV dissias snould first show the pattern It normally shows when searching 


for a PASIC proaresa. 
2) Jt should then chou the تنم‎ 
3) The third cattern is ne 
lines narrowly spaced a few dé 
eroduced by Fartial Fascal s» 
4) lhe fourth pattern is p 
consiste of unstable. basiclu har 
«hort i1") thin herizontal black 


riec riediniae from proe his d is the | و ود‎ 
nc for a recording. 

id bu Partial Fascal reading data from à tabs 
zontal. thick black Lines liberailu pepeered 
ines 


1.4 Loading Frablens . | 
Partial Pascal mau display an error eessage during loading. If the message is 


ERROF 1 


or 
.FRRKOR 2 

then 16389 (RAMTOP) wes nokec with a value less than 111 before Partial Pascal u 
Inadea, Loading Partial Pascal without the 16K REN pack in place has the seme effec 
Tf uou haven't poked 8۸88107 then check that the 14K RAM nack is in place by issuing 


the BASTC coamand 


“PRINT PEER ! 


On 
ad 
an 
43 


The value orinted should be 12&. 

Other loading :۴۲1م‎ ۰ are due ta incanrrec 
computer. The first thing to do (s te teu 3 
side af the tape. : : 

If the message ۱ ۰ 


z eta transfer from the tas .Q the 
دو‎ from the beginning using the other 


ERRGR 3 


is dieplaued then Partial Pascal has recognized that one or wore hits were read 
y\eorr ectly frou the tape. Tru the load over again from the beginning. If this error 

pens Bore ther once, return tre tine to Semper Softuars for replacement. Tre 
Yeading of Fartial Faecal consists of tua main tasks: 

1; loading a BASIC nrogran called "PASCAL" which contains a small machine langua 


ioadar end 


2: sing that machine Lanquage loader to load the bulk of Partial Fascal. 

Most 1٥22٣5٥ problems occur when loading the E program. T£ the BASIC program 
^as not heen loaded correctly, then the third and fourth patterns displayed on the 
will rot be as described in section 1.3 but rather Will be the patterns cf BASIC 
reading the tape since the 

LOAD "PASCAL" 

will still be looking for the BASIC nrogras caiied "FASCAL". 

To deternine unambiquouslu whether the BASIC ororam has indeed loaded. nress the 
SFACE key while the 4 1/2 minute part of the tans is playing. If BASIC is still 
lnaking for "FASÉCAL". this wiil cause a ۰ء25‎ ۴ and SAIL will clear the screen and 
display the inverse K, In this case, retry uith different velume eettinos, You may 


want to retru using 


LOAD "" 


gs 


* n 


rétner tnar F- bu wd 


LOAD "FASCAL" 


although this seldom hsior. 

If the RASTC program nes loaded correctly, the SPACE keu will have no effect 
because the mechine language isader ignorss it. In this cese, the tape mau have been 
Stretched or exoosed to 3 magnetic field during saicping. The TU would shou the 
Characteristic sattern of Partial Fasceal reading data from the tape. the fourin 
pattern described in section 1.3, for about à 1/2 Minutes, and then revert to the 


third pattern, 


If neither side of the tape will loed, return it for replacement to Semper 
Software. To aid in isolating the problem, we would appreciate a description of ths 
computer and tare recorder ucu are using what ۶5 22555 when you tru to load Fertis 


Fascal. 


Charter 2. Start with the Editor 


2.1 Selecting the Zditcr 
Tn this chapter we vil] bern te descephe tne aditar Tie 7 i Hare fadi 
described in Chapter 6. This chanter will explare just enough of the جات‎ te +a 
is ta write some orcarane. ] : 
Whee Inaded, Fartsal Pascal shows the messace 
PRA TIAL FRET 1 
: COPR. 1983 SEMPER 8+٤+٤ 


(f 
ALL RIGHTS RESERVED, 


an the top two lines cf the TV end some numbers on the bottem line. These numbers 
vill be explained ın Chapter 5. s 

Press ang key io continue with Partial Pascal. The erigipal dispkay is replaced by 
à selectian display 


|. EDIT 
>. COnPILE 
LOAD AND EXECUTE 


توچ 


Press tna ناما‎ ta cii 
beQ'nnind any ۶۴۲۲٥٤ 9۱, à 
ases this bu showing 3 ٣ 
between then, . 


asta! then. as 1b does when 
for this axecubton of the editor. JE 
line cf the TY orth threa soaces 


a work far the ۴ا 52: یم‎ ang the 

2d ful و‎ in Section 4.15.) The slewly 

ib curser, Every key repeats autenatically 
a] 


"Zo 
$50 he careful not to nold a ben dcus tno 


Tupe "SNT" inside tne nuntes, ("SNT" will 
igafer. Tae deviess usu can select are descr 
flashing Cursor i5 the moemal Fartesl Fa 
when tiging with the slculii fleching cur 
fone unless unu want ۱۲ te renset 


6.1۴ ue 





یل 

(n 
(e 
7$ wv 


fhe editar will start as soon ss uou tupe the third character e? "SAT", If yeu e 
mistuned the first or second character, uou can bacrspacs over then hu pressing C 
while holding down SHIFT, If uou've nistuped the third character. bee stor weil 
start with the wrong device and uou should press f while holding dun SHIFT to causz B 
vt 40 stop, inen aress anu ee to get the. selection and À ta start the editor sagen. 4 
ihe editor tikes about 4 seconds t^ measure the amount of segarin avarlabie, thon 
starts bu disnliuira the Sut ef its memory (there will he ng content 1F this vs 
the first time it has started since Partial Fascal uas loaded? and racidiu flashing 


its Cursor. Keus da not sutnmati aliu recital when the eqrter is executing, 


E 


2.2 fentraliing the Fartor 


The editor uses tha first 22 lines of the TU disnlau ta shaw 22 lines of the source 
erearam being executed. On tne Zird line, the editor shaus tuc nushers. The first I3 
the numher of wemoru hutes still avarlable for use bu the editor. The second is the 
nusher of source orseray linés that are not vieible because theu come before the too 
sine displaved on the TU. The 24th line (s usea du Partial Pascal end 1s not under the 
control nf the editor. 

The editor uses a rapidly flashing “cursor” to shaw wheres the next character wou 


n 27 Xs 
tune will appear. Frees the alphabetic and numeric keus without shift to enter letters 
and digits. Tupe 


PROGRAM 7 


LAT 

“۰ 

n 

IR] 
A 


using the space sen after the letter M. Unlibes Fes 


Y c 
x 


d 


nust he spel) 
wzanings in F 
ere tuged in 


ed out jetter hu letter, Ce 
é:cal programs, These vords 
letter bu letter quet like 
The keus with red punctustion marks { 


preesed while holding down the SHIFT keu 
SHIFT key. 


holding ths 
PROGRAM 2 
R 


Dag 


PROGRAM XYZ 


“The comua 
to tips outeu 


PROGRAM 1 


Then use 


n 


PRÜGRAM 7 


The 8, 4, 
displau or an 
SHIFT held do 
Qf the aroara 
the X, Y and 


PROGRAM SFF 
SPP are th 
and spaces re 
held down, mo 
then use the 


PROGRAM SFP 
BEGIN 


BEGIN " 


this program? 
f The ENTER رات‎ 
: always eoves 

:editor's best 


the sditor’s 
B of BEGIN. ° 
four presses 


PROGRAM SFP 
BEGIN 
WRITE ("HEI 


Press thes 
PROGRAM SPF 
BEGIN 

WRITE ("HE} 
END. 


SS an exce 


lease the 


( 
SHIFT key and tups 
(INPUT 


is entered bu pressing the 
7 


INFUT,CUTFUT 
hz Q and X keus 
CINFUT,QUTPUT): 


7 and 8 keus, when used uit 
sy data, Move the i 
wun until the cursor is ayer 
m. Change the nasse of the n 


Ze 

(INFUT ,QUTPUT); 

& initials of Senper’s Fart 
Glece the Charscters they ¢ 
ves the cursor doun one lin 


9 keus with SHIFT to move the 


CIHFUT,QUTFUT); 


used in Fascal to mark the 


and the beginning of the ene 


moves the cursor in a fris 
the cursor down exactlu ons 
gueé¢s as 20 where ia 


z 


un 


is not veru good, 


gue i 
اہ‎ one space away from whe 
of the S key. Now use the 


CINFUT, OUTPUT); 
L0, WORLD") 


then hold SHIF 


ENTFR key, 
CINFUT, QUTFUT) ; 


LQ, WORLD") 


rcoise ‘n Cursor agi litu, ao 


cursor back 


riiin 

; iam tT 

word 

alac 
tr 





periad bey while holding SHIFT, 
with SHIFT to finish the First Linz af cur 
th SHIFT, wove th: cursor withou 
k several Characters bu usina t 
the letter X. Bs it stands, ٢ 
۳٥٥۳ 28 to vounr ra;trale hu tuo! 
isl Fiscal. Letiers, digits, ou 
Me tuned over, Tre à Fes. PLES 
=. Ure st io move the cursor de 
& Cursor e he Left margin. Ne 
end of the dacleratiaons (there 
ecutabie Statements. How gress 
ndiier wau than tne arrow 25085. 
Tine, but alsa moves it left و‎ 
to start tuning or that gest 1 
this fase, it takes the cursor 
re the next line kegs, and sz 
Pals Key once and tune 
while orescing the 5 ken once, 
ve the cursor te «2 BEGIN line 
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PROGRAM SPFINUTFUT). 
BEGIN (s FIRST PROGRAM +) 


SRUTFC"HEC LG YOFLO") 
ENO. 






Uhat ue nave niet edded i< s comment. Canmgents allou the author of i nnoaniw te 
Communicate و‎ the readers a6 2 orocram urtnout ony interferes: from the romp. les. 
There are no ruies stout the Contents cf comments ber anes the cane sier ranspes then, l 
11ہ‎ begiír wth e (9 sumbol (no spere is allowed betueen the opening ظا موہ‎ 
and the تیر او‎ and continues thru the following *) suwhol facai^. ns e52cel 
nOSSihiu Soanninz several times. A comment may be "placed im a pesarim enuusere جو یرم‎ 
ff 3 quotation that a space mau he ataced. inis completes gur first Paeral رہ مەم‎ ie 
1.3 Save Me 

Nou that the first nrocrem has Seen written. we should save ri on tane. Place = 
Pienk tape in the recarder pier s f eec c as? first fe 
where tans nali tii neahlene ane f t 8D rdsr’ 


ınnut jack to the comnutesr’s 7 


tnird fete, 
heard fils 

















The last Line af tne TU digstau was aot look like 3 8:186 2n s better d 
indicates 4 quer for an cutout datas sat Nei, the dra zt a: 
daha uas written ta the editor’s third fils, and the 1 7 
for ucu to tuce in the name for sek. 

It's a GPE! (dea ta have 2 tr far sets in 
@amec eecrer to r2cill, In this : sib nares 
four parts, the nane of a بھر عم‎ make the ni 
and s irajler that distinquiche ect proarse. For tri peta 
the name rs "SPRL FA" Bane nie af un te 3ا‎ characters, e 
names in Fascel , inverse video and argonics character: 
allowed, m 

I? the mame vou rnoose, like this nne has fewer than 12 characters, Partial 73 
v (i start recortina when ou aress ENTER after the last character, TF the name یڈ‎ 
full 1? characters, Partial Faecal will start recardina uhen "ag nrecs the 12th 
character. d 1 


03 "SFP],PAS — " 


lupe the nage, nrsss RECORD and PLAY sisuliineo 
press ENTER ar the lta character of the data set 
recording.on taps, the TY should lack as it looks 
the editar's displae returns (in about % seconds 


ously an the tene recorder, tren 

nese. While Fartrai Pascal is 

when saving a BASIC pracraem. kre 
turn off the tase recorder. 


2.4 Get That Source Fenaqran 
Tune aver something, anuthing, in the program. (It will be restored when the «d 
radds the prctras from tape.) Nou press 6 while holding down SHIFT. The 201227 2E 
the too line 
LOSE CHANGES (f N)? 
Ihis question is a safety Feature of the diced جآ‎ SHIFT & sele the مج بت‎ te 
Throw away the current contents of its memory and resiace it wite unit ور‎ wei re 
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a" 






1 
T 


aM dar 


vet 
oO 
5 


no 
0 
5 


aa 


Fa 
ig 


from tape. Since ve have wedge changes io the editor s wenceu ied nat Saved thoes 
Changes. the editor ts verituina inet we realiu want to discern HERO and dido: 7 
press SHIFT f acridzatilly. ! 

Press f, then press ENTER, Thais confiras te the editor thal we reallu sesant ve 
told it. IF usu press N then ENTER, or just press ENTER, the editor ull] lezvr ii 
peworu intact ind ect as if SHIFT B had never hser pressed 

Partial Pascal assbs for the naue of the data set uo want t2 read. The lest line 
۲٤۴٥۵٤ 

" وہ 

The JF asks what date set name Fartial Pascal should read for input to the editor 
third fils, the tape file. In the Quotes, type the name vou just tuped when we saved 
“ne source program. B 

15. 57 ) ۸٤ " 

Press FHTFR on the coscuien, end the TV should 3isplau the same nerrowiu esaced 
lines tt showed for two seconds when we leaded Partial Fascel. Reuind the tips an: 
press plar. Fartial Paccal will find the date set and provide the data io i52 editar 
The pattern on the TV shouid be similar to the on displaued during the 4 1/2 minutes 
Partial Fesce!l was loading. When that loading pattern disanpeirs, ston the tipe 
recorder, 

If uou tune the wrong name. uou cen use tne Û key while holding down SHIFT te 
heckspace within the quotes. 16€ uou discover you've tuped the wrong name eter Farts 
Pascal hes begun seerching tns tere, press the و‎ kev end Fartesi Fascai will ssi o6 
the last lins for a new data set name, 

When the editor nes the source program back from the tans, it will displau it 25 
the TV end the overtuping ue did iust before reading fron the tepe should be gone 
J.P I Quit 

How sion the editor bu pressing f while helding down SHIFT. If we had wide zn 
Changes io the editor's MEMORY since our most recent Save or Get, the editor would 
have asked ۱۶ we really want to quit without saving the chances on tape bu و طز دو‎ 

LOSE CHSHGES (Y,N)7 

When the editor ends, Partial Pascal displeus two numbers on the last line of the 
display. Fartisl Pescal does this when any y program ends. ihe first number aives 3 
reason why the procera is ending. 255 a ۸12355 the program ended normailu. Anu ۶7ء‎ 
Number Beans the progres ended due to an error (or bu Invoking the halt burlt-ir 

; procedure, See section 7.2 for program completion codes). Partial Fascal icaves tre 
: top 23 lines af the display es they were when the Drogrem ended. Then usually hive 
sutnut fro« the program that just ended. 

Press erly key to return to the same selection displau from which we selected the 
editor in section 2.1. If you press 1, the editor will resume editing the source 
program in its memory (it's still there) and vou can finish this cha apter now. lf uou 
rather advance to chanter 3 and come back to finish this Chapter later, press 2 t5 
invoke the compiler, 

2.6 A Change of Scene 

With the source nroeram cafelu on tape we can be more cavalier with it. Frees 2 
while helding SHIFT. Did the je disappear? Yes. Will we have to read it back in 
from tape? No, The editor had been displaying the first 22 lines of the praaram. Now 
it is 0189818۵ 5-1218 thru 33rd lines, which ere all speces. Note that the U 3r 
the 23rd line nf the TY hac changed to an 11. There are mow 11 lines "ahove" the TU 
disnlig which cannot be seen. and the Orcoram is epong thes. Frese 4 while holding 
SHIFT io return to tre previcus nant of View, 

The 3 and 4 keve fora s دم‎ like the & and 7 V YS. In both paire, the left teu à 


$ 


(n ths proaram and the rig 


zd to aeress lower lines 
nrasraa. 


Inversione 






Inverse video (uhits on hlack) characters and the 
ered using the editor. Pressing 9 unile holdine SH 
ephics BOCs". Lhenever the beubnard is in oranhics 
verse video 6 es the first character of the lest li 
shoard de in nerial mode, the first character of th 
thea the kenhoird (s in arapkicz uode letters. dio 
: spare kau are entered in inverse video and the ar 
pressing the reus with orachics characters an than 
zz Section 4.15 for a note on using tne & he with 
To return tn norüal made, press the 5 key again uh 
The editor cannat rerngnize anu Fils rermellu used 
"ser contre] ks: 5 / 5. 7 and B, when the keupsard 
'S& reus are uszd ta enter the granhirs characters, 
ur *d te normal mode hu pressing ؟‎ untle holding 5 
"f war 
frese keus rontrel the Editor if uses with SHIFT u 
5: Move the diinlined area il iinee farther from i 
*: finve the diznla aed area l1 lines cloger io tre 
^: fiove the cursor one spece to the left, If the c 
Qir, move it tn the right marein ane line un. 
^: Rove the cursor one line dour, If it is already 
line, ! 
7: Rove the cursor one line un, If it is alpezdu o 
4 line ! 
8: 80۷۵ the cursor one snace to the right. If ii i 
= di to the ieft margin ene line dour. 
?: Tf in roreal made, c ce made, I8 in a 
23 These keve thet cc ^ tor when used wi 
8: Quit editins. Tf anu ا من‎ have been made sin 
editor started if there haven’t been any Saves or 
C 1925 should he ۰ 
5: Save whatever is terno edited. To nerform the 5 
تد‎ tn its third file, the one far which wou selec 
Patter in SNT.- 
8: Set. Something in edit frow tone, Tf anu chanaes 
2 or fet (or since the editor started 1f there hay 
tor asks if the cnenges should be lost. To nerforn 
ruthing it hes in menn and rerisces rt with what 
third file is the ane for which unu «elected tane 
The 1, 2,0, FL EK. T, Y, A, and D bene control the 
ater 6. 
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ht & 








ey to accecc higher lines gr A 
graphics characters man be 
173 puts tee peuboara qnin 
mode, زی اح‎ tascil shous a 
ne of the TU d-splau. her tHe 
2 lect line is i enace, 
tis Punctustion parks enc ever 
FILS characters mer be entered 
uhije holdino t^e SHIFT be. 
SHIFT.) 
tte heldina the SHIFT peu, 
ta contrel +؛‎ euch 35 the 
123 ؛‎ Graphics mode. her gure 
Tee heuboard must first بط‎ 
HIFT, 
2 
hen not in Granbicc CE 
he too, 
en. 
ursor is alreidy et the left 
on the Jind tine, move it to the 
n ipe too lire, move it ic the 
5 already at the riaht parain 
ranbics wende, enter norgal wore 
th SHIFT onis function in یمم‎ 
fe the last Save or Get (aor یمم ,و‎ 
Gets), the editor vill as} +f 
ave. the editor copjes fray its SU 
ted tape bu tuning T as the thie s B 
have been made since the ice! 
en't been ano Saves or Gete the 
the get. the editor erases 
it reeds from its third fiz, 
bu tuping the T in SAT. 
editor in ways described in 
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To compile the program in “the editor's memory, press 2 from the selection Ss) 
from which you previously aresead | to bros the editor. Then tupe SANT to 211 
devices for the compiier’s three files. 

"SAT" 

The compiler writes each character of tre source program 4C the TU sersen is it 
comes to it. The compiler executes in fest mode so most cf the time it’s running tiers 
will be nothing disnlayed on the TU. At the end of each 22 lines of output. nowe.er 
Partial Fascal nzuses for 3 1/2 seconds to sake cure lines don t sercll eff the screen 
hefore vou have à chance to see then, | 

This first program is nci long enough to cauca 2 peuse so the first disriay from 
the compiler comes when it's done. 

PARTIAL FASCAL COMPILER 

(C£) COFR. 1983 SEMPER SOFTUARE 

PROGRAM SPF CINFUT OUTPUT); 

BEGIN (* FIRST PROGRAM #) 
WRITE("HELLO, YORLO") 

END, 

(s 233) 

If uou get onlu part of this dizolau and an error number, uou ve uit athten c 
little ahead of the lesson. Frocede to section 7.1, which describes whet io do uhen 
the compiler write en error message. 

What's that (8 234)? The compiler inserts 4 coument into its listino of the 
program, which it writes to rts first fila, at the end of severus suborseres ard 2 the 
end of the mein nrocram diving the length, E far, of the object program, The total 
lenath of the sbiect form cf this program is 23 botes. 

Partial Pascal will be asking for a name for the outout data set cn the last line 


of the TV for the compiler's third fils. 


0 d " " 
The conventional naue we Pee وس‎ is the name of the program, 2 sequence sutber. a 
period and the suffix OBJ to denote the Object forn of a prooras. If the isst ten 
uou did was read 3۶۴۱,۶۸۵8 in to the editor, the tage will be positioned to record 
in 


neide the quotes, 
O3 "SEF1.PAS " 


press RECORD and FLAY on the recorder, then ENTER and Fartia! Fascal will record 
the “object fcrm cf your progrza on taps. 


4.2 The Loader 


When the recording is complete, the compiler ends. Fartial Fascal teaves the first 
23 lines of the display as they were written bu the comoiler anc outs the como:ter’s 
completion cada (tne first number should be 255 to denote normel compietion) on tne 
last lins of the TV. Press any key to gst the selection displev. 

Press 3 from the selection display to select the loader. Irs loader reads obsect 


data sats from taps and executes them. Fartial Fescal will ask for devices for tie 
loader on the last line of the TV: 


fupe SUT inside the quotes and the Inader uil! مہ ریغ‎ The Siret tring 11ں یم‎ da ie 3 
zed In the ۔نرطہ‎ ٢] dete set the comoiler: just urcte oun. Fartrsi Fazral ache oor the 
auez Of tne date set to he read «n nou on the last Lins ^6 the 17: 


Tupe in the same nawe uou sparifisd uhen the -ospilen urote nut tha و سے او‎ farm عو‎ 
aun program: : 


I3 "SPP]J.nBJ " 


Rewind the tane. You really need ^ot rewind any further hace thin the یم ہیں مم بے‎ 
he copoilear’s cecarded nutnut hut this time rewind all tne way tr nefare t^i 0 
&ginning of the editer’s cutout. Press ENTFK, then nrese FLAY, Partie) Pascal v ti 
arch ine tere for the data set memed “SFFI Gain, 

When Partial Pascal comes across a data get میم‎ than the one oii rman 6ar 
t nuts the name of the data set it nae found on the righ’ جورع‎ cf the jas: iani, lass 
arital Pascal finds "SPPI.PAS", the source progra saved hy the 2d.'2r ٭.‎ diealaos 


SEFI PAS ۱ 5‏ " تیرمآ مد 


Far 4 1/2 sacande, This feature is heinful nf uml ys farantten tre nasec ۶ہ‎ tats 
ets cn tase. ۱ ! : 

After skieoing aver SFP],PAS the loider reads in SFP ORG ind cefirte (i, The 
rcoras FFF has oniu tuo files, ج5‎ when st starts Partial Pascal acts uou to select 
wo devices for those files, 

a LII 

Press twice to select the Standard inrut and outnut devices. tre tashoind iod T9 

creen. The object sroaram will immediately writs 
HELLO, WORLD 

on the first line of the ES You have now composed, -owniled anc evecutel unu? 
inst Fartial Festal orocram, © i لہ‎ dici 

Fartial Pascal freezes thre n eplau when ine nrcaram anes, Freee anu bx ٢ج‎ return 
a tne selection displau. 
نے‎ ertial Pascal tne Language 

PROGRAM SFF(TNFUT 811117 ۶+ 
REGIM ¢ FIRST FRüGEAMD s) 
WRITEC"HFILQ WORLD") 
EXD. 

The Pascal program header consists af the vard PROGRA A, ihe nime of the crnarenm, 
he earenthesize4 list of names of the arsaram’s files and a senicolan. 

,A nmas# in Pascal beains with a letter. The serand ind sucresding characters OF i 
ame wal! he either alnhabetic letters or nunerie digits. 4 name may be ac lona as ucu 


an 
the. (32 characters 15 a practical limit hecause à name cannot 1 
ins tn another.) All characters of a name in Partial Fascal are equally sianificant. 

The following words are nat allowed 3c rames 5ecause they have recenved meanings i^ 

anrtial Pascal. AND. ARRAY. BEGIN. CASE, CONS! DIU. DD. DOUNTO. ELSE END. FOR 
DRWARD. FUNCTION IF. AOD, NOT OF. OR, PACKED. ۲۷۷05۶0086 ۲۴068۴۸8۸. REPEAT, 
HEN. TO. TYPE. UNTIL. VAR. 3na WHILE. ار یعیۃ‎ Biz | 3€ in رع ور جات‎ tfe the " 
ASE statement OTHERWISE. tnat mau rat he used a: F these “reser saa” 3 





1! 


« 


0 words are described in chapters 3, 4 an 


d. 
Unlike full Pascal, Partial Pascal does ndt: have records, ests er cates. Tne 
reserved words used for then in fuil Pascal. GOTO IN. L&BEL, RECORD, SET and WITH Bat! 


not be used in Pertial Pascai. The wards FILE snd WIL may not às used in Fartial 
Pascal, hut their purpose fay be accomalished im Fertial Pascal without using then. 

After the orogran’s header come the declarations. The next section begins tne VAR 
declaration. Me declarations are always enced bu BEGIN, which marks the beginning 2F 
the nrogram's executable statements. an END followed by a pericd must be used to mark 
the end of tne ۵۴۵۵۴ ad, 





3.4 Declaring Integer Variables à 

A variable is a naue for a portion of memoru ibat will be used to ctore some piecs 
of date when the program is executed. Integer veriables cen take on values that ers 
whole numbers tn the range -32768 thru +327۸7. Ths are used if your program needs i0 
do anu arithmetic. Variaties in Fescal must be declared before they cen be used. 

A veriabie declaration starts with tne reserved word VAR. It is followed bu one or 
Bore Mawes separated by Commes, a colon, the tuce desired for the variables naned in 
the list and finally a seuicolon. üultiple Lists of variable names and their tupes are 


0 allowed 


PROGRAA ۰+ 
VAR X, T. Z: INTEGER; 
INTEGER 
BEGIN 
END. 


This program declares five variables (x, ul z. abl c) of tune integer. Variables of 
types other thar integer are alicued in Partial Fiscal. The other tunes are pasiocned 
to section 4.i. 

3.5 Added Value 

Vartahles in Pascal are not initialized to anu particular value. 

The assignment statement gives a value to a variable. The veriable’s name is 
followed bu the assianment sumbol, +=, which is followed by tne new value. The new 
value mau rz specified by 

1) a constant, sich ss 15 or -127, 

7 2) a variable uhich has al: ead! been given a valus, 
4) a function, such as the absnlute value sanction, ats, ar 
4) à forwulz combining anu of the preceding. 


PROGRAR ASS 


SPUT,OUTFUTO; 
VAR X, K 


à T ps 
۱ AB. 6: JES, 
BEGIN 
X:2355: (* A CONSTANT (غ‎ 
Yrrx; (* A VARIAELE *) 
Zi-sBBS(-Y): (5A FUNCTION»; 
A&B:izX*Y-2; ٭)‎ A FORMULA =) 
C:s8Bs37 DIV (825(X-Y)s1); 


(* ANOTHER FORMULA *) 
X:-Y AOD C; (* A NEU VALLE 
FÜR X *) 
END. 


Fnrmulas mas be constructed using the sumbols + for addition, - for subtrartion, * 
rO for multiclicatian, DIV for divisicn, MOD fer finding s remainder and, if necessary, 
Dàrenthess« for indicating the oi !n which these coeratiore should bs performed. 
۱ 


DIV performs a division and thrrus awall any fraction in the result, 2.9. 77 


{ 


DIU 3 ts -2. Tne divisnr nof a DIV must nrt he sera. MOD is not à TOMManiy seen 

aneratyan: ADD gives tne reuatnder c9 2 division, The result of 2 AOD F (£ Sha Pt 
rewainder of A di vided hu B. Ths result 5? ERODE may rhe wht ar بی‎ Du starting urth tni i 
values CF A and acting or eudtracting tae valus af & 23 Sanu time: 22 wererseru (I ٭ے۔‎ 

a result uhich ie less than F and aneater tnan or squal te 0. The موی(‎ o5 3 17 


wust he greater than or sanal $^ i, 
"Eynrescion" 16 the general ters Car constant warezhle. function ہو‎ fonsuls 


Funrecsians من ےم‎ frequently in tascal. An assiranment statement has i vairsible mane te 


the left of the assrangent cuahel (ع:)‎ and an exnpese.on ta tne the niobt cf it, Tre 
function abs (s-0) teabes tae absolute value Cf vou. ADS mau tes the absolute vsiue 
^f ame integer susression, 


3.4 Urite (t Tut 
Tre first «s 
quotation. Tre erits s5 


^u an expression. 


ment uced to urit» = 


3 ate 
uogisn be used t2 write numbers uhace vilus |€ مو دج‎ 





PROGRAM 8 7 
DUTPUT)- 


VAR ۴٢٢۷٣۵۶۶ ۰ 


RITE" as 
"3 LEFT VSR", 

fu^ 

Lit 





this pragran مت :لو‎ the following when the TU screen ts selected fer the outeut 
file. GJ Usb 
TF EUERY MOHIH HAT ao hays. Y 
HERF WOLD EF 1? درجم‎ FER + 
FoR 2ND s DAYS LEFT ۶ 
1F au have sare than cone thing ta write, use 7 
must ce either a auctsitiion encinsed quotes or i 
a2 herecter as well as s: nusher, a5 cribed ir i ds CR 
“he atove orogray shous urite statements with h oquotations and e-nressions ke 
Sinte a quataticn sust and on tne <a line of the source nronray ther i$ Starts nn. i 
write statesent wili sometimes have quotations 'n a rou. Each urite statement 
dicks up where the orevicus one left off, in mid-lina ہو‎ even in ard-word, The ےا زم‎ 
TF e F tures 


aresented in 2 nuotation bu tuo nuote marke (i.e, ars 


fhe writeln (gronnunced write line) ctatement mas also be used to urite auntatiane 


NC e pressions. ime aiéfereance detucen write and writeln ig that urtteln after 


writing out all its data, finishes the line tt ends on. A surccesdina write nn uritein 
«111 start on the first space of the next Line. (Write behaves like BASICS PRINT sith 
sicolon after everuthing printed while uritein hehaves lire PRINT without a 

iling sesicolon.? DER 


a 


PROGRAM URTTFTTOUTCTAEUT. QHTEIJT? 
VAR Y: TNTEGER; 
REGIN 
3:226. 
VRITELNC'UTE EUESY MONTH Han", f 
" DAfS,"): 


- 





“YOY WRITELNC*THERE UDULD BE“ 145 
DIV f." RCNTHS FER"); 
WRITEINC"YFAR AND". Y AOD 345, i... st Ff 
" DAYS LFFT OVER"); 
WRITEC"""A"" TS THE LETTER ", 
"BEFORE ""pruw) 
END. 


sing writein to improve the appearance of the output produces 


IF EVERY 80٢٣ Han 29 Days. 
THERE WOULD BF 12 MONTHS FER 
YEAR AND 17 DAYS LEFT OVER 


wan 15 THE LETTER BEFORE "En 


Nate that each numher is d: isolaved using 8 characters fc cr 2 Spaces and ز‎ ge 2 
digits}. You mau specifu the sinimus تورم‎ of chsracters io be used for an expres 
in a write statement hy following the expresciaon with à color and ص3866‎ 2SS i 





(CON fo not add ہ3‎ sutra conma. For example, 
PROGRAM “1 7 (INPUT QUTPUT 
ds: 
VAR Y :TNTFSER ; 
BEGIN 
z28: 


WRITELN("IF EVERY MONTH Heo", 
Y :1, " DAYS, "3; 
WRITELNCUTHESE WOULD BE" 255 
DIV f: 2." MONTHS FER"): 
WRITFC"YES® AND", 355 AOD v:2. 
" GAYS LEFT QUERY) 


END. 


The srnrsssieon only gives the minimum اس‎ of charecters Fascal will use ta 
° represent the first expression. at least as many charactere 33 are needed will os 
used. Y: J, for example, uses tua characters een Toys G8. 
ry IF EVERY ۵9:۲8 ٦۸0628 DAYS, 
THERE WOULD ج رع‎ MONTHS PER 
YEAR AND 1 DAYS LEFT QVER 
3.7 Blaise Can Read 
Partial Fascal's read statement can read in numbers (ind individual Chiracters, as 
We shall sss later), Fach number raid in Pes (ts value assianed ts 3 variable. Ths 
varieble's rane is specified inside of the parentineses fclicwins the word reed. 


PROGRAM READANDURITE 
CINFUT, QUTPUT); 
VAR D: INTEGER; 
BEGIN 
WRITE("HOW MANY DAYS FER ۰. 
"BOHTH* "), 
KEAD C): 
VRTTE(CRAS DIU D," MONTHS OF "); 
Q VETTEL HORI!" Days EACH, 
z NRTTECU PLUR "i3 : AOD D," Dav". 
"S MAKE ONE FEAR) 


« END. 


When this orcaran یں‎ evacyted the first thinc it aoss us yr te 2 agestich on tre 
TU screen EAN gee 


HOW 8۵۸۲ PAYS FEF MONTH? 


Having executed the write statement it aoe 
will Blink on the BCPSEN where our ansucr vili 
the question 518۲ the question wa written us 


gay. 27 and sress ENTER, 


HAW MANY DAYS FER MONTH? 27 


Partial Fascal assians variable û the value usu Lz tn, 27, ard anaes In oic tre 
next statements, which write the ۴٥۱1٥۷۰۱۰ 


HOW MANY DAYS PER MONTH? 27 
13 RONTHS DF 2? DATS EACH 
PLUS 14 DAYS M4KE ONE YEAR 


ik 
=a 
a 
iE 
ws 
T 
[9] 
7^ 
uy 
ıt 
«, 
[i 
7 
a 
n 
~, 
“u 
D 
مه‎ 


T: 
in 
i 
"n 
u 
۲ 
a 
D 
‘ 
e. 
t 
- 
» 
t 


d statement can وم‎ 
3 with commas. 


FROGRAM READ (INPUT . OUTPUT Y. 
VAR DAYS. MONTHS: INTEGFR; 
BEGIN 
WRITEC "HOW many HAYS SHOULD ' 
۸057 5۸09۶7858۷۸۱۸۶ &wD HOW RANT” 
° HONTHS SHOULD THERE BF? 
READ (DAYS. MONTHS: + 
WRITELNCRÜNTRS-j 12," PONTHS. ", 
"GF "DAYS " DAY 
URTTELN(U ! AANTH و‎ 
JéS-DAYSsChONTHS-1) 


^ 
3 : 
"1 1 
3$ 


DAYS") 


WRITE("YOULD MAKE ONE YEAR") 
END. 


the the previous Program, this one, when it eXeCutes, first writes 2 ouscticr : 


HA MANY DAYS SHOULD MOST MONTHS 
HAVE AND HOW MANY MONTHS SHOULD 
THERE BEF 


‘tation or a qumter does! ili 


There is no 553٤ between months and ha 
E Line, 


^tt on one line, Partial Fascal coniinus 
The numbers to be read bu the read st 
mats. First. uou may Oress ENTER or S 
a + oF - sign. Finallu, the number 

any event. ENTER must be ores 
sre arz several acceptable Waus 
ints this prooran: 


cM T 
.- 
Es d 
[it 


eS Fetes 


L 
i 42 


Z3 ہت‎ 


i 

ui c3 
Gr’ M 
i 


[M] 
iU 
cx 
= 
> 
a 
a 
ہے‎ 
~ 
۲ 
* 
{ 
my 
- 


at 
۶۶ 


D ON Ln 


UM (Ca X agn TT 
7 
کس‎ 


2 
(t 


ےا میم 4 
oO‏ 
> د 


3 
oe a) o 
a 


i in Cie کا اس‎ 


۲٢٢ ut‏ ہہ 


ah pas 
Dn 


"oa ty a 


wv 
3 
ct 
iT 
^73 
ct 
ıt 
c 


T سے‎ ر٤‎ 
Jv تاد‎ ot 


"3 


I5 
H 


A 
774 an oa Ib 
. 
TI 
D 


is 
mn 


THERE BF? 32 10 
er 


THER 


1 
XD 

a 
-J 
4 


or 


THERE BE? 3 


bo 


#5000019 
or 


THERE RE? 032 
10 


or 


THERE 7۶ 





+052 
+10 
In the fourth exemple ghove 160 may 
ENTER ied the 32 Or bu pressing SPACE 
C) ENTER pressed before ind after tha *032, 
سڈ‎ the values fer [518 and nONTAS 
with the uriteln st, atiments, 


HOW nnt DAYS SHOULD 7ھ‎ MONTHS 
HAVE AND HOW MANY DAYS zunjip 
THERE BF? 33 10 
10 MONTHS DF 32 DAYS AHD 

1 AGNTH GF 45 pays 
WOULD MAKE ONE YEAR 


ied read line) statement nec Sveruining that reed deze and one 
thing Fa Causes ef rehaining Characters on the Line containing the ] 
haáracter raid to fe ignored, 
PROGRAM RE UCTNELT QUTPET); 
VAR Mi AT 3م‎ “INTEGER: 
BEGIN 
7 5۶۵0۸1: 
c™ READ (M2, 03); 
WRITECMist r: gel, AI 
ws" i mY 
END. 
Changing و‎ read to readin gives و‎ Slightly di fPerant ۵۳٥2٣ 


۶ fF SDLINECINEUT, QUTEUIT) ; 
VAR MI, 2.83 :INTEGER; 
BEGIN 
REBDLN(I); 
RFAD(D2, 3); 
URITE (1 :1, "s", 82:1, "e" mi] 
"2۸180۱ 
END. 


? 


1۶ we execute the above two Frogr ins, Groviding each with the case input, 


234 
ry 


نظ 
Pressing FNTFR after. the 24. the first Oreeram reads 2‏ 


11S ٠ 2¢ the value fer my 
value for f? وو کے‎ the value for M3 and writes ot Cutout 


0 


The ٢2۲901 وو موم‎ reid 











2adz 3 ins for Gi HESA '"anCres tre عدے‎ as tise "i. 
Veluss for MZ aad 83 wuet still te Typed and another ENTER tuped 2fier ther 
234 
34 
2*5*&z2á0 
3.8 IFs. ANDs, Nf 
Fascal has sever} Statements chose gala FUP 12 جا‎ decide whether an not 2 
rerfor» other statenents, The IF statement decides unether One cr tuc other statements 
^^ grouts of statenents should be « scutes. 
PROGRAA TESTIFCINFUT QUTFUT); 
BEGIN 
“F 122 THEN 7 
WRITELNC "UH DH. ( EQUALS و278‎ "s 
۷11170055۶۵۶ [5007 DOMFLETE") 
«ND. 
After the ucrd IF canec ٥ new *in? of exysreccian. an 0ة‎ ۳5155 uhnse veljs js rat 
S e:ther te fale Eki Ors uhnis value js citer rai mr 
Bin RPE S rae E 21158 logician uhc ^ 
er with any is ture. In Fiscal 
boolean expressions Mau ne sper 
1) a constant, like irus 
2) a variable wnich kac 3 value of trye or false fEaelzar 
fertables are further isic 
3) & function. such cs i 
numsric expression it is 2 d ge? de 
talse) 


4) a comparison, like 





=F Or te (There are ci =) 
end =, iz. «* and ہے‎ Quasi E typed into the ed: Ing th QR n 
PR نس وم‎ with SHIFT held doun. ihe R T and and are nc} 
4 d to enter comparisan SsunBcls.!) oan | (5 
3) a formula compinina any of tre Oreceding with AND, OR ird NOT. fe comparisons : 
ذ٣‎ — 2820 tn a formula thew USL he enclosed in parentheses. This ic because Fasz. 


treats something live 
12م‎ AND 8805 (خ‎ 


a 


ACC12 AND COD(A)) 
Tf uou want to use the f£nraula 
(4412) AND 00D(4) 


then vou must code th 

After the Egolean e; 
tatezent or a arsua of 
S true. The example ab 


zf3us* 1 15 never equal 





[+ 





mS An TF statement eig alca s2ecifu an ELSE ard with j4 8 statement or argus of 
° stateeents tz be evecuted 2nlu uhen the P2clein expression ms false, : 
PROGRAM ٣۶۶۱ 22٤780۴۱۴۰ QUTEUTI o ios RAS FU ا‎ 
VAR TESTNIIPEER: رز‎ 7۲۶۰ 
BEGIN 
WRITF("FIFASE ENTER A MUMMERS " 
): 
۸۶/۲9۹9 MEER). 
IF ühDiTEzTAMlnRFR) THEN 
MRITECTIESTHURPER " 15 ann 
ELSE 
URITF(TERTEUDRES " IS YEN“) 
END. 
The above PPOQram, when ssicated, first Unities s: reayect, 
. be tuned, Tru -231, 
£3 S E 
the veriatle TESTHUPBEP, The IF 
Whether the number read IS Cûd or nat, 
THEN :s executes and the 
even number, 
the read cletemen: sigas the vilus 18 to varishls TESTHDUTBER. then add ic faisse بر‎ 
FESTNUMBFR the stitesint atten the THEN 15 shisped over and the statement Following 
ELSE is executes, 
To execute a group of statements rather then just one etatement after ; THEN or 
ELSE. the group or Stetetenis US he bracketed using BEGIN snd END. nen 
BEGIN follows THEN ar ELSE, ii marks the sinning of 4 2۳٥2 of statements 
جح‎ that will either 21] be evecuted er all Skipped over, END barks the end af the arcuz 
"af statenents hegun bu BEGIN, 
- PROGRAA EVENGROUPCINFUT OUTPUT), 
: VAR NUR: 11165 , 
BEGIN 
WRITECUEL Fase رع‎ NUMBERS "3. 
READ(NUn): 
VRITELN'" Rü7EER nop"; 
IF NOT 660 رونس؛‎ THEY BESIN 
WRITELN(SUDM, " Ng") 
WRITELN UI rp YES"; 
WRITELH Hine " gv) 
END ELSE RESIN 
wRITCUN(NUR- rp," NC": 
MRITFLN(NUD, " YE“) 
END 
END. 
E In this evamnle thpes uriteln statements apa uXxecuted and tuo Writeln statements 
^e Skinned ayer winner nut sh جا‎ even "NOT edd». Uren the number is odd. three WER Sse 
Statements after THEN are skitped and the tuo -after ELSE gre وج راع نت‎ An eve ut'on <o 


5 


“the orcarem micht produce the fnilouing display. 
PLEASE ENTER NUMBER: 25 bod okedoe £2 £ 
NUABER 0 
24 NO 
25 YES 


or like this 


ENTER (586: ۵۸ 
و‎ 


FIE 
NU 


ASE 

ARE 
9874 NO 
877 5 
9378 NO 





! 
PROGRAA ONE TOTEHCTNPUT, OUTPUT): 
VAR COUNTER INTEGER: 
BESIN 
COJUNTER:z:- 
WHILE COUNTEZ.-!0 تق‎ BEGIN 
URITE(CCOUNTEF)- 
COUNTER: =LAIUNTES+1 
EXD: 
WRITELNC"(GNE THRU TES)") 
END. 
Tne execution cf 3 WHILE ctatenant ie controlled bu ite Bonisan exorescion, When the 
Boolean exoreesion ic true, the statenent(s) following the DO are executed and the 
Boolean exoression evaluated a0a:n. When the Boolean expression ig false, the 
dtewent(s) after the DÜ ere skipped and execution continues with whatever follous. n 
ln the above جو مم‎ the #sSigament statement gives variable COUNTER the value 1. ME 
f n the YHILE’s 202123» exorsesian is evaluated. 1€210 ie true, so the write 
Statement is executed and the asciannent stateaent after it gives COUNTER the value 
)*1; The Boolean exsression is evaluated again. 25210 ا٤١‎ also trus, 60 the write 
e IS exscuiid again to write the auster 2, the assionment statement gives 
COUNTER the value 3 ird the 2221585 expression Is evaluated again. 
This looping continues until an the last locp 104210 is trus, the write statement 
writes the nuaber 10, the assignment statement gives COUNTER the value 11 and the 
Boolean exnressian 11:210 ور‎ false. Now that that 850912980 expression is false, the 
writes and astiarsent statenents are skipped and execution continues with the 
Writeln statement. The entire Cutout written by this proaram is 
J 2 3 - J 
ó 7 8 7 00003 
THRU TEN) 
5.19 Half a Colton عم‎ Better than Nene (3 
Pascal statements have no particular relatinnehip tc linee tn the Source. fru mang 


-. KM 
ےم‎ 











'"onlace as Reny 5182050815 3s will fit onto s line taithcueh usur orogarem re usu, 
clearer with no nore than “As 513502018 per iua). ep string nui و‎ singles state 
Over mane Lines, 

Pascal nroarans arz alwaus soringled with canic3lo . A Semicalon sener ates 
PROGRAM Heading from the res: af the declarations - ihe declarations Srom sick 
Other and tae declarations fron the word BEGIN. In the statement area. و‎ SmI 
used ) senarst« enu tug Live statesents, Sometines a Preeram hss gina 
Statements hut no tun of 8 consecutive, The statements contained in an IF THEN 
ELSE statement. for instence = noi consecutive with It or sach other, 

PROGRAM HONCANSECUTIYE 
CTHEUT ۰ OUT ET 3 : 
BEGIN 
IF FEOF (INFIIT) THEN 
WRITEC"NG DST& TO READ) 
ELSE 
IF "EnUC.15388.0:18005 THEN 
UFTTEC"nERORT TCA Small". 
di ELSE 
SRITEC"CDHDTTTONS Qe 
END, 
Progra has tye fe write statements. but no tos of 
Bíents gre co it ےہ‎ na semicolons, 
3 in sn extra picsl os i 8٤ required ie not ellowed in the 
on ares. In the stategent arse sini 2281٢31٥8٥03 ars usually Marmisis. wit 
م6‎ ٤٢۵۸۶۰ The coan:ler vill net gla = 88:016 befers the ELSE ce: ar [ 
n before the OTHERWISE of 3 CASE statement, or before tre END of 3 CAS 
ni. The faurth place ic Particularly dangerous because it ig not cauaht 
after the DO c? s: WHILE Státewent, Much ccuputer time cin be wasted u 
Dlisuing UMILE ststenend ہے‎ step loanina, 


PROGRAS FOREYECE 1: 
VAR COUNT, Sua tin 
BEGIN 
WRITELNCUHOY ۵۲۷ھ‎ NUMBERS " 
"SHOULD I AQD? “>. 

۱ READ( IAL Tr: 

COUNT? =0- 

SUM s=8. 


SUA: =SUNSCILHT, 
DCOUNT:sCOUNT +1 


WRITEC"THE Stn AF مرح ںیا‎ « 
"O THRU" ,۱1811," IS" sum) 
END: 


Its author intended this program to find the sum of sone infegers, but the 
Semicalen after tie ward DQ marke the end of the WHILE states ent. When the re 
Statement reads à value ہو‎ ب۴٥‎ à" nore, the WHILE'S Boclean ovnression j tr 
First time it se evaluated s0 the statement after the DO and bef 2 semi 

! 


O ۱۱٠٢ جا‎ 


zeeCuted and the نم‎ eanres 


e 
iD 
Y CO ٥٠ت‎ in 






لا 





S stor ."aluated again. The statement after 
before the ہام مہ‎ !s a very small statement that dossn't وو‎ anytning, s^ the 
2 De iruz every time it ig 2 : 
3 wore وہ۱ 5دا‎ 2 nd END that were intense 
r 


=: - 
d Since 1¢ ت416‎ 


=! « d 
he 3rOup of statements far the WHILE st S 
t i^ know ٤ط ٭ز‎ BEGIN «ae ہا ری ]ہم‎ 


te^ a THEN. DO cr ELSE. 


e 


` ٤٥٤۳٥ statemente, 


la 


m 


- 


۰ 
au 


= d 
u 
2 
oo 
19 
"3 
F 
ہے‎ 
3 
- 
t 
5 
ip 
1٦ 
Au. 
ihe 
ee 
۲ 
لی‎ 
a 
‘ 
aud 
u 
T 
7 
ın 
Us 
s.s 
e, 





222125 au be dec » à 
have one cof tuo va 

gan Verietia has a t suk5ol, 
ressinn thet fclious 5 
essicns sither bu th x 

Ing AND. OR ana NOT. 


PROGRAA ۱۶۱ 
VAR EVEN. are 
DCANDIDATE: I 

REGIN 
VRITEC'PLFSSE ENTER Some " 

"HUnRERS “i, 

ar i READ CANDIDATE); 

WHILE وت ۷8۲583۲۴ ۵ػ‎ D 


~ 
Te ١ 
I 
«t 


m c 
tod 
li.) 
c 
is 


I~ 
Ne 


mH 


" 


EVEN:zNDT ۲ 
E LARGE :zCenDIDA 


ELSE 
JF NOT EVEN AND NOT مئ)‎ 
THEN 
VRITELBÍ"NETTHER") 
ELSE 













BRITELNI"QNE QR THE OTHER M 
"BUT HOT BATH" ds 
READ (CANAIDATE) 
END 
END. 
This preorsm Cateoorizes numbers as Being even, large. ba 
aE iene im it. The first, HOT c44 (CENDIDATED, s 
: E function, The second assianment Statement mau Inet 3 
First, with hath an assigneent surtal anc à grester ther, $12n 
-. expression is a simple comparison. CANDIDATE 7۰ LARGE . 
1 as least one thousand Hhind ے1 حع‎ 
AND. The fourth P expri 
|ff2n025t Qiu. Bota and 
859168 to be trus. enecuti 
screen nias 





[he first uriie statement. asks uhozven ےر‎ susc Ling the croüran te tune In nuyghers, 
We tuos in three numbers before pressing ENTER, 
PLEASF ENTE ۶۴ NUSBERS 9°99 cg 
9 123. 
The firs ‘vee CANDIDATE the value S32. Since 9969 رج‎ 
= nf Ctateuent enecuted, PUFA hecomes Pals . 5 ر‎ 
À EVEN AND Lar First writein etgtenans (6 si 
5+8۵٣ تزات‎ |35 lein کل برح رج ےن م 6ت‎ 
ttatemoent i6 c ritely state: llouinz th . 


PLEASE ENTER SOME WUMBERS $995 5 (0041 £ P» 
¢ 4 
ONE OF THE OTHER RYT MOT BOTH 


tamar at tine WHILE c 


That completes the execution of the first IF so the تہ‎ 
T ^ 





0۴٥ای‎ Iz executed, the read thet finiches tre l222. it reading where tue 
first read left off and finds the value 9? for candidate, 

Now the WHILE’s Boolean expreesion is again found trys EVEN and LARGE ere hoth 
false. the first uriteln is ageie shioped and the second uritzin .ات‎ 


FLEASF ENTER SOME NUREERS 995% 9 
G 4734 

ANE OR THE OTHER BUT NOT BOTH 
NEITHER 


The r2id at the end of the WHILE loco gives CANDIDATE the velue 1234, The WHILE 
lear is executed again because it £22lean expression 13 aggin true. This tine the 
first writeln is executed and tre ath Skinped Sys 





9 


..4ASE ENTER SOME NURPRERS 93957 
9 1234 

ONE OR THE OTHER لا‎ HOT ROTH 
NEITHER 

P2 OTH 


6 Fitil, go the cursor 
ہے‎ 
STERN a 





ا 
BOTH‏ 
a i‏ 


4 ‘hat a Character (5 

× char variables his 4 value that is 4 character (Partial Rascal hav 
string variables. bui there are ARRAYs of Char described later). & 
5؛‎ à Space, a letter, a digit or a ounctuaticn mart. A Partial Fasca 
can also be an inverse video character. graphics Character or other và 
net displegable on the TU screen. 

A char expression may be specified pu 

1) 3 constant. a single Character (with one exception) betussn uote marks, zucn as 
"A" or "?" (Ta specify a quote mark as the character, use two cansecutive aucie wares 
'nside quotes. 1.4. رسس‎ 

2) a char variable that has already been given a value, or 

3) a function uhcse value is cf tupe cher, such as the built-in function chr, which 


dives the Character correspanding to a Sinciair code valus, 


Tne chr function produces the character that corresponds to a number according to 
مغ‎ Sinclair code used by the ZXE1, Timex-Sinclair 1020 and 1:290. Che (25) = "i" and 


chr (38) = "A", for instance. The ord function give the Sinclair co adi for a 


character. Ord ("C") = 40 and ord (".") = 27. 


PROGRAM CHARACTER (TelF UT. OUTFUT); 
VAR C:CHAR: S:INTEGES. 
BEGIN 


kad 





A23 


S:zQRD(U7'" (۶ 
WHILE S“=fF00"4") DQ e 
WRITEIN(S:3," IS THE " 
"SINCLAIR CODE FOR رر ہاب‎ 
URITE("FITeSF FNTER A". 
"CHARACTER"; 
REAC CC: 
WRITEC"SINCIAIR CODE FOR """ C, 
men IS". رع قوج‎ :3) 
END. 


j 
ry 
Soe 


This program writes 





35 IS THE SINCLAIR COOE FOF 7 

34 T3 THE SINCLAIR CODE Foe B 

3? 1S THE SINCLAIR CODE FOR 9 

38 T3 THE SINCLAIR COOL FOR A 

FI EASE ENTER & CHARACTER 
PI 
۱ Jf we press the comma bev 2nd then ESTER, rt continues 

35 13 THE SINCLAIR CODE FoF 7 

36 T5 THE SINCLAIR CODE FGA g 

3? IS THF SINCLAIR CCOE FOR $ 

38 TS THE SINCLAIR COLE FOr ۵ 

PLEASE ENTER 4 CHARACTFE | 
SINCLAIR CODE FOR "," IS 74 
4.3 Just m: T 

Fartial Tigi’ vou to iî n tunes 
(and text. Bel later). You mau et define v tur i 
tune to ۶ت‎ ge tube. A subranoe 1's eritten 23 tuc constants 3 
lower and 2 range separated tu the .. SUD. 1..4 is a sub 
intecer ti sscal, the !6 ٣ tuos has viluss -312,788 thru 2 
1..4 has pP values, 1 thru 4. The subrange tuoe -32768..32767 

^N equivalent in Partial Faecal, "A", "CT" 46€ a cubraros of the tune 
(2 just three dit "AU. "P" and "D 

fine wav ariahle: to se 6f a subrsrige tuse is te give the subrange in 
relace of tk built-in tuos. : : ! 
*  PROGRAS SIERANGESCTNPUT fi TPUTO ; 

VAR Xi, X2, X3: "A", ZT, 

NENTONIAM:1,..3; 

ETNSTFTNIAW : 1..4 ; 

Variables Xl, X2 and X3 the same unnamed tune, the letters. Variable 
NEUTONIAN is of an unnaned zs the three values i, 2 and 3. EINSTEINIAN is 
also af an unnaned tune, on the values 1, 2, 3 and i. 

The enumerated tuaes ani cf Pascal Brocremnecs. In an enumerated tune, 
the values that fore the ton (e. In their declaration tha names are Sp ral 





by commas inside a set of paren 


VAR edid 


4C) He SF: | 


0 ا رر یں 


BEGIN 1 


A. 


WRITEC"IS THERE ۵ CAK TNSIOE " 
"(Y GR NDT "3: 
KERDICHO ; 
JF CHz"Y" THEN 
BUILT ۹ 
ELSE 1 
سیک‎ THERE 2 TU INSIDE ". 
(1 OR NY? یرٹ‎ 
RERDCCH) 
IF £Hz"Y" THEN 
610 7 
ELSE 
۱ ۶٣ 
END: 
IF ۶۱۱۲۱٢164 ٠ T 
VFITEC"UATCH QUT ص۵‎ 


N 


HEN 
& THE ", 
"DTI. SPOTTY: 
IF 216-71 
WEITEC TURN GFF 
"al c EA") : 
PUILDINGS HOUSE THER 
BRITEC"NO NOT SLEE? HERE") 
EXD. 





The expressions of an enumerates type may be specified by 
1) a constent (one of the nanes used in the declaratian), 
2) a variable n? the tune thet has already been given a value, or 
35 a function thet eraducss s value of the enumerated tuns. 
Hcte that, like exereecion of tune chin, these irse PET n^i be combined iste 
“nrmulas. 
Tha TYPE declarstion gives a name ta a built-in tune or a simole tone voy def 
if a eracras has bo*^ 3 TYPE and à VAR teclarztion, the VAR declaration comes li 
After the word TYPE, the orocras declares each neu naue for a tues in the 9 
the meme. an equals sign, the 3۷ء‎ of a simple tune (integer. bazi 
a &ubranae or enumersted M03 Cn aà areviciislu deciared name of anu af the £ 
and finally a semiccian. 
PROGRAA NEWTYFECTNFHT , GUTPUTO 
TYPE SAAECLDSTNTEGER; CzCHAR 
VETARATNESASFNLI: 
|. (SUNDAY AGHOAY. TUESDAY 
0ا‎ (12888۲  THIRSOS) FRIGAT, 
SATURDAY) ۶ 
WEEKDAYS=NONDAY. .FETDAY: 
ZEROTHRULS= C..15; 
LETTERS= Bats mes 
VAR FAYDAYIUEERDAYS: 
66485000 GAMESLOST: ZEROTHRULA 
TEMP: SAREGLD; CHE 
BEGIN 
PAYDAY:-FRIDA!: 
CH:z"R"; 
END. 
4.4 @érrau of Sunshine 
lhe variables dee-ribed so far have been simple variables. Integer. char ۹ 
Boolean varizties variables of erunerated tyres end rerrables a? وٹ ویج‎ 


IC ob AN 


e 


n3 ١ص‎ 


S978 a 








eos 
=e tuses are calted siuple variaclac because thaw have no internal structure, 

Arrays In Partial Pascal are variebles that neve an internal ztructure. Than inl 
composed cf csveral simple verisbies, ali Gf tre cente tune. Tee ۱۳1۱۷۱۵۷۶۸٤ simris 
variables ars called the elewents of the arces. In rartial Fescal oniu one eiss2ct of 
the ۳ mas be referred to at a time (Full Pascal has 2 few operations that work cn 
an entire I at once). Fach element of en arrau has e unique "indes" that serves tc 
distingui lement from tne other elements of the irrag. Tne indices Of an 
srrau’s cl * consecutive values of a sinis tune, often consecutive intecers. 

An arra is dencted bu the neme of ine array folloved bu the suvdcls f. ani 
.) enclesi pression tnat Giıvss the value 2f ihe index. 5۲۵۸8۸۸۲۱) ۔ 17ء‎ 

UFCTOR(C. a9 Y. )ع اقم‎ "X". are array elements of the arraus "ÍARRAT, VECTOR and 
TAPE. MER index is ef tuce cher. To declare arrays, foilou a list of ons 2r mar 
variable nimis in the VAR dectaration by 3 colon, the word ARRAY, tne tope oF tre 
index enclosed in (. .) ais, the word OF and the tune of the slements. 
PROGRAM ع۶۰۵۲م۵‎ ۵2178۳۴٣۲ OUTPUT): 
VAR VECTOR : ARRAY ), Û 1. 3 .! 
OF 866 EzN: 
3 NOFfAL: ARRAY (C, CHAR .) OF 
cee 7 ایت‎ : 
7 TABLET: ARRATC.CHAR.) OF 
rien 
JNTINP:THTFGER: INCHAR:LZAR; 
BEGIA 
INTIND:z0- 
WHILE TdTisd<=2 DO BEGIN 
VECTORTIATUGQ 3ء‎ 

ERD: 

181180: +۰ 

WHILE 1:4118: 255 DO ع8‎ 

NORAD ۳۲۷8م‎ ]80( Des 
کہ ر۲8۶)181[788))‎ "> AND 
(CHE CINTIND Wisse" ys 
TABLE (CHR CEHTIND) زی‎ 2201 
11871116: +1 ۱ 
END: 
= READ (THE HS وک‎ 


i WHILE "2" DO BEGIN 
3 TAELF (5. INCHAR. J = 
TAELFC.TNCHAR .) +1 
FEADCLiCHAR) 
Eno: 
INTIHD:z0: 
WHILE INTIND<=255 DO ٣] 
IF (TBELEC.CHRCINTIND).):70) 
AND süRRALCLCHRCINTIND) 
THEN 
URITELNLCHRCINTIMD), 
" AFFEAREQ ", 
TABLEC.CSRCIATIND).), 
" TIMES"). 
INTIND:sINTISDe] 
END : 
END. ' 





0 RDDNESS is an arrau with four Poelean elements ODDNESS(C.O.), ھ۳"‎ dde 1.5. 

js GORKESS( 3.) and ف۶۵ تالزے بے 3 ۱ 5 و0808‎ 16 an array af 756 Boolean elenent nee for 

; سے نے وس و یں ےہ م۶‎ IE سے‎ 
zach af the characters Partial rascal recoanizes, including 125 that can hohe 
displaued, TABLE (5 an arrau af 254 integers. The first WHILE statement essiane fals 


re BODHESS(.0.) and OPONESS(.2,) and true to the ther 

Ine second WHILE «tatewent (nitializet eli ure ale : "n 
sero, and assigns trus to the elements o dO MAL: the 
von-inverse-video Characters ٤4 tine 10 eraphics cha 


‘alse to the 197 other وا وت و واج‎ of NORMAL. 
“The third WHILE statement reads characters until 
legent of TABLE for each possibis cneracter to Hese 

haracter has acopearzd in ine input. 
fne fourth WHILE statement writes a report o 
3opearaed in the innut, if at ell before the fi 





n how manu times each cf 464 characters 
r 
1 





A feu restrictions apniu to arreus in Partial Pascal that da no! senlu to ۱ا‎ 
ascal. The reserved word ARRAY way be used only in s UAR deriaration, Fuil Fass 
3lso allows it in a TYPE declaretion. Arraus in Fartisl Fascal nave nnlu one 
jimension. The elements of an array in Partial Pascal must be of a گا دواد‎ ture 
The lowest index for an arrav mas not be less than vers. Tf the lowset inten 56 
areater than zero, Fartia} Fasral treats it as zero durima execution, bots ۶ 
allec sting memoru for the array and when checking rte indices. Tne richest array inde 
allowed ٤ 655. | | : : : 
This grogras is izgsl in full Pascal, but has tus ernhnrs in Fanta! Pascal. 
ERAQ WOMTEUÜRKCTNFHT DH TPETO ۶ 5 
yA TQ0LOU: ARRAYS. 154.) OF 
CRAR (* LOWES 6110۸00 TS LESS 
THAN ZERO: ILLEGAL IN FARTIAI 
PASCAL #7: 
THODIMSARRAY(. 124944 OF 
INTEGER (& Tun "nune NOT 
5LIBUED TH FARTIAL PASCAL $): 
HiLQ:ARRAY(.1..100.) OF CHAR: 
t+ GLLQHED IN FARTIAL FASCAL: 
TREATED AS ARRAY(.0..100.) OF 
CnAR*) 
Fartial Pascal checks duris that everu index ectually used with an array 
یی‎ Qreeter then or eaual ta ze than or equal to tne highest tinder jeclerei 
for the arrau. ! 
4.5 Canstants 
artial Pascal recognizes several £upes of built-in constants: decima | numbers ^ 
ch acters in Quotes irus and false. "Yeu can define ucur own named constants If in 5 
enuuenrated une. AS à Convenience, Faecal allows nou to declare wet more names for 
-onetánts in a CONST declartion. Tf a rogram has Gath à CONST declaration end either i 
TYPE Or VAR declaration. the CONST declaration comes first. 


After the word CONST. ‘the, program declares ث٣٦‎ neu nome for à جم‎ 
«au? the name, an equal sign, the constant value and a 
tay be anu built-in constant or any constant name deci 
an nuserate d tunes, 


nstant وناب‎ 


a CONST cr ie 


PROGRAR CONSTAHTIMDPLE(INPUT 

DUTFUTO; 

CONST CHEC RIMaF at SE 
PAXINDEXs73; LASTLETTER="2"; 
LISTINGSCHECKING: 

VAR DATA. CHECKS: 

ARRAY (19. Max THDEX.Ó OF 
INTEGER: 
COUNTERS ۶ 
PEGIN ۱ ; 2 
URITELNC"THF ALPHABET GOES 


C. 


AT 
روہ نت‎ "LLASTLETTER “N, | 
COUNTER? <0; ; 
WHILE COUNTFR<=MAXINOE® DO 
BEGIN 
DATA POUNTER, 13 
JF LISTING THEN 
WEITELN("GATAC." COUNTERS! 
Qe ' 
COUNTER ?=COUNTER+1 
END: 
IF CHECKING THEN 
WHILE CONNTERDO DO BEGIN 
COUNTER : =COUNTER-1; 
CHECKS (COUNTER. ) 321 
END 
END. 





THE ALPHABET GOES FROM 4 TO سك‎ 








LASTLEFTTER, since it iz declared as a C 
theracter hu writein. MAYINDEY makes chan 
satu. Both their declaratian and the value 
are automatically changed when the value fF 
2.6 I Rapeast 

lhe REPEAT stetenent forns a leon like the پا‎ teat the 
statements in a REPEAT lace ere guerenteci to > 

The REPEAT stetenent hbicins with the une RE 21 28:5٤ 
separated bu semicolons. the werd UNTIL and a P execution 
5f the statement (s), the Boolzen sunress1on IS e iuated. in Port og ls. tne 
Statements are executed aagin 


_ . PROGRAM INTTONLYCINEYT. OUTFIT) 
< TYPE EINSTETHIBSSQ..3; 
VAR DIMENSION: EINSTEINIAN, 
BEGIN 
t REPEAT 
to— WRITE ("PLEASE EN ITER A NURGER", 
1" FROM 0 TO 3: "); 
و رو تا‎ 
UNTIL (PIMENSION:=0) AND 
(DIMENSION©=33 
END: 


The two statements inside the REPEAT statement are executed at leset once and mau 
be executed many more times, depending on the input supalied to the read statement. fn 
execution of this program could look like 


ip ee ENTEF A NUMBER FR 
PLEASE FNTFR 
3: -3274% 
FLEASE ENTE A NIIMPER FREON ^ TO 
ہر‎ 3: 1984 

FLEASE ENTER ۵ NUMBER FERN (٤ 


- 


"n 0 TS 


> 


NUMBER FROG 


e» 
— 
= 


Q 


is جو‎ 


On tha first three executions o£ the REPEAT loon the velus entered far 018٤ [UN 
wakes the Boulean evpressian after UHTIL False. pd ipetem the slateeeeta an 
reesecuted. Pre fourth tins, the eopressean Ge oon ANH ' th. share pe teda, qe tS 
eiernutian of tns REPEAT chatement (eases. 


t 


4.,7 For To ie 


The FOR statement loons 3 predetermined nusber of times. Bath ioco rs رت راس نے‎ ev 
5 new value of 2 control variabls, The FOR ء٤ 6ن 0ت2‎ Ears rts tine ward FOR sol lewed 


by the name of the caontral variable. an assignment sumbol. an ezpresi'ón وص بج‎ tne 
initial value of the the control variable, the ered TO zr the ward 008810 ar 
evorestian 1.2 the final value af the rantral variable the word 00 ard a ghatenent 
ar à arouo of etatements warked tu REGIN and END. The ceatpgl variitle muet be rf و‎ 
cimole tipa. Full Fazcel does nat “allow narameters to he used +8 the control var: ple 
requires that the vactable uged be declared if the Gams rogram Or cubpro in am that 
centaine the FOR statement and dass nat :llau the eéentiesd vari hie Pe te aetdit pert es 
an átsignaenl or read ttatenent during the tine Ibe FOR stateuent ہے‎ efat o. 
rartial Fascal does not check for these Unings, but ta mte run prn aer renal bie 
with full Faecal uuu should, 

tthe final value ıs feae than the initial value cme iter Ilhan unen DOWNTO + (93 
ud | the statement ar areun af statements 15 eat oweetuded at allo tbherwres le ~~ 
ranteal variable i$ 64ي 6۱و‎ the ini er zelus for The Irs a میں ایب‎ of Tas 
stataneat(is) and an each succeeding ezecution ils value 19 iri reatu! الوب مب‎ a^ 
DOUNTO یں‎ used) tu nae, The last execution af the shatenent(s) (s ihe مو‎ during 
unich the cantrol variable has the final values. 






The initial and final values are calculate? ance. befcre the ste’ ara: 
executed, The contes] varrabte sho9u:id not azar in ine s precisione 
and final value (Partial Fascal AFA E actueily creck Pee tyr رع‎ E 
aot dépend on the control variable naving anu particulam viluzs afte: 
یی‎ executed tince that value mau be different for differeat Fascel 





PROGRAM ۲0۶۲00018۴۱۱۲ , 6001۴11 : 
TYPE NEATOMISH=0..2; 
VAR INIT: NFUTONIAR- 
VFCTOR:ARRAYC.NEWTONIAN.) OF 
INTEGFR: 
ALFH:CHAR; 
“EGIN 
"DR INIT:-9 TO 7 90 cB 
VECTOR (INIT. ie HIT s 
FOR 1NIT:-2 COUNTO 8 
IF VECTGRC.TNET.) «2 TNTT THEN 
WRITEC"UH CH" INIT; 
FOR ALFH:-"A" TO "7" DO 
URITE(CALFH) 
END. 
The first FOR statement initializes tne three elegente of VECTOR. The second FÜR 
statement checks that initialization. The third FOR statement is the only one f 
produces anu output: 


&ECOEFGHIJKLMNOPFORSTUUSZXYZ 


4.8 Just in Case 


The CASE statement’ chooses one statement (or arcup o? statauants marked bu BEGIN aid 7% 





v4 END) for &sscution fron several candida? Cased an the alus cf an exorescion, 

(0 Me starts with the word CASE followed by evpression, the word.OrF. ons cr gore 
"labelled" statements Cor arause: ssparitej bu semregltans. in More 0٢62-28188 wit? 
4 Statement (or group? aed faratly the word END. Ina "labelled! statemente zach neve 
ene or wore constants and 2 رم ڈو‎ preceding them, Tne constants should ali nave 
different values (Partial Pescil goes not check far this but a full Pascal cout: Ler 


does). 


If the value of the expression is the cane as the value of ane of the constants 
the statement(s! thet follow that constant are executed ead the rast of the cetitemaniz 
are not executed. T? the valve of the expression doas not match anu constant, the 
statementic) following OTHERWISE is executed. T£ the value of the eurressiin donee not 
match ang of tne constants and the word OTHERWISE is not used, none af the statemente 
are executed, 

The word OTHERWISE is a Fartial Fascal extension to full Paecal. Several Faecal} 
comnilers recognize it, hut it is not part of standerd fuli Fescal. ! 

Full Pascal allows an antional رس‎ before tne END that ends tre CASE 
statement. Partial Pascal does not allow 2 semicolon there ar before the word 


OTHERMICE. 
^ PROGRAM TRAVEL CIHR 
' — CONST FOURS SAUARE=i 
TYPE NEANS=(TRAIN 
BGAT, BIKE): 
VAR HU: INTESER; YAY: MEANS: 
BEGIN 
(* FUT SOMETHING HERE TO 49376 
VALUES TO NUT" AND WAY s) 
WRITER," "2; 
CASE NIIn-2 OF 
0.1.4, FOURSQUARE, 9:BEGIN 
WRITEC"IS 2 NORE THAN û ", 
"PERFECT SQUARE"), 
ES NUM OF 
AL: 67" AND 4 PRISE”, 
a yov 
(eNO SEMICOLON HERE : 
END ts OF INTERNAL CASE = 
Bo (# DF STATEMENT GROUP ET 
^s $.12:URITEC"ROD 7-70"); 
12,15, 11, RTTECIS & PR 
F 


IT OUTFUT): 
7 


- OTHERWISE 
: WRITEC"IS NOT AN INTERESTING" 
" NUMBER") 
END; 
WEITELN: 
CASE WAT OF 
SIKE:WRITF("NO FUEL NEEDED. 
TRAINSURITEC"NO STEERING a 
"REQUIRED. "); 
PLANE BÜAT:MRITE("TRAVELS " 
"THRÍI A FLUTD,' ; 
CARIWRITE("USES GASDLINE.' 
END 
END. 


If wau and num are given the values FLANE and iS, this nr rocram writes 


O . “4 - ۴ Lad 


Is NOT 4N UNTERESTING NUN‏ 12 بس 


fRAVELS. fHFII A PLUTO, 





When way and nuu have the values BIKE and راز‎ the, ٹیہ ارح‎ 13 (i$ 
11 5ا‎ % 808۴ THAN A FERFELCI 
SQUARE AUD A ع۶۲‎ ۶ 
NO FUEL NEEDED. 
4,9 Subproaraus 
Faccal has tuo kinds of subprograms. © procedure t¢ 4 6867 he 
invoked as a Statement. A function if a subproaran that ئل نت‎ ss subrrogcrar 
کا‎ à program within a program. After its Meading 4 مہ2 از‎ in^ me 2 6uli 
eragram. Pracedures and functions are declared after inu CONST 
declarations. A suborogram must te declared before if can be use 
Procedures and functions differ in their headings. Ths croce? ig tne wars 
PROCEDURE followed hu the name that will he uzed to mnvebe st. 3 11584 
tu a list of parameters. Here کم‎ one nrocedura with mo cerameters 
PROGRAM ۱۱529۶۴06۲1070۴۲ QUT RUT): (5 


‘ROCEDURE iHISISMYHAMDE: Ms 
BEGIN 

WRITEC"LUDUIG VAN BEETHOVEN: 

END: 
BEGIN 

WRITELNC"THIS TS FIR 
THISISMTNARME: 
WRITELN(CUTHIS 1۶ LAST") 
ERD. 


5۳983. 





A cemicolon senarztes the pracegure's heeding fren its declarations. 8+ 
semicolon after the procedure separites it from the PROCEDURE, FUACTION or BESIN thet 
follows. A procedure's name mau be used as e statement to cause the execution of tne 
۸۴۵۲۴٣٣۰ ا‎ 

[he above program becins execution at the second BEGIN Because that is the PROGRAM s 
BEGIN. Execution af tns (۴٥0٥ 8 dines not ceteri it the first BEGIN ہ؛‎ the program, 
hut rather at tne BEGIN that ends the declaration ne firs e.ecuted 5 
the first uritein. Tne next statement. THISTIAYN : ion of 
, ctedure af that name at nens BEGIN that ends ite declarations. It executes the zx 
st. ;ement its only statement, and ends. Wher it ends. evecution resumes with th : 
stat quent in the main proc rim, the second uriteln. The cutout from this nrooret IS 


THIS IS FIRST 
LUDWIG 8 BEETHMVENTHIS IS LAST 


4.19 With Parameters : 
A erocedure with two integer parameters and one cher parameter: 
PROGRAM ۶۵۸۹8۸3 (THEUT OUTPUT): 
VAR RADGIIESSES. THIS: INTEGE Rs 
PROCEDURE CHECK SUESS (GUESS. 
CORRECT: INTEGER: CHANCE:CHAR): 
VAR WRONG:INTEGER:; 
BEGIN 
WRONG? 20; 
IF ORD(CHANCE;-;CDERECT THEN 7 d 


URDNA:SURDHSAI: ; 
IF CHARCES SCHR (CGRRECT) THEN P 
0۷۲0۲۷۶۹: 1خ (0 5 ناد‎ ۶ 
IF 50یپ‎ 6×0 THOR 
WRITEC"INVGKER MADE ERROR"): 
IF WRÜNGz! THE 


کہ ۔ 


WRITE’ "HELF 


جم 0 


H 








ORT 3. DRD("A"),"À 


82 ^ 
i al 
VRITEC" WHAT B THE SINCLAIR", 








"EGGE, POR ON e» Wi. 

0 15) 

60065 "da 

WRIT ^ oH Es 

2-5 
END. 

"^e h NESSES declares theses oarameters. GUESS and CORRECT cre Loth 
185 char. Ime parameters are declared inside parentheses, 

Their forua* as in a VAR declaration except that the duses mer be 
specified oni Papaveters mau be anu of tupe built in to Partial Pesci! 
(intecer, cher. E: an tenth, which is described later) or anu tuse whee nike 

has been deciered in a TYPE tecteration. The oarageters mau be used tn te iime ways 
as variables declared in the suboragran’s own VAR de claration. The only difference is 
that variahles declared in a VAR declaration have no particular values wher the 
subprooriu bean: execution, but the parameters ere initielized to values ۴۵۷۰ء‎ 20 in 
the stitegent thet invokes tie suborogr am. 

The above croaram conducts a quiz aed uses the procedure CHECKSUESS to check the 
answers. First the nroarau uses writeln to pose 2 question and read io osi an answer. 
Then the arcoras cauzes CHECEGUESS to be executed bu using its nage as a statenent. 
Since CHELFONESS nas parameters, the name must he followed bu a parenthez'zaed list cf 
expressions seoerated bu consas, one expression for each paremeter of CHECKEUESS. The 

alues of the exnressions necone the initial values of CHFCKGUESS's parameters when (t 
egins execution, The stateuent 5ر‎ called a nrocedure invocation end the expressions 
re Cille4 the argquuents of the invocation. 

CHECKGUESS's purcose 15 tc check the answer provided bu whoever is taking the quic 
but first it does a Little checking of its oun. CHECKGUESS starts hy ceraing iis own 
niic WRÜSG. whose value becomes unpredictable every time CRECKGUESS 65٤ 
execution. Then CRECKGUESS tests the invaker and the authors of Partial Fascal for 
consistency, Finally CHECKGUESS checks the ansuer. An incorrect quess is only recordes 
in the BSOGUESSES variable if the invoker and Partial Pascal were both found to ce 
Consistent. Afier CHECKGUESS ends. the main program asks another quiz question, gets 
another anewer invokes CHECKGUESS a second time and finallu writes a message io the 
Quiz taker with his score. : 

Note tha! RADGUESSES i< not one of CHECKGUESS's variables. Subprograms may us? 
their oun variabies, the maln DrOgran's variables and the variables of ary other 
suborogram in which they are contained. Similarly, the CONST, TYPE, PROCEDURE anc 
FUNCTION declarations of the arogram and of ang erclasina cuborooran mau also pe 
used (In the csse of procedures and functions, the heading of the Invoked procedure cr 
function sust have alreado appeared in the eource nroar is. 





22. 


FROGRAR NESTTUSCINFUT OUTFIT: 
CONST TRAC ENG ۰ 
FRGCED:IRE ٠۰ 
BEGIN 
VF TRACING THEN 
WRITE "Fi" :* 
(+ FL COULD RE T4UDKED HERE دم‎ 
END: 
PROCEDURE F2: 
PROCEDURE F^: 
PREGIK 
IF TRACTHS THEN 
URTTE(C"P3"); 
ie FR COULD SE INVOKED HERES? 
(+ F2 COULD RF INVOKED HERES) 
P1 
EXD; 
BOGIH 
JF TRACTHG THEN 
WRITEC "RID. 
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[KSCINR THER 
BITE( URS") 
fe F3 CANNOT RE INUSKED HERE* 
FII 
BED 
۴) 
REG? 
uWRITEC"START" I, 
F1. 
F2: 
ی‎ P3 CANNOT PF INVOKED HERE =) 
Fi. 
SKITEC"END") 
un, 


«hen this program e:arcutes, it produces the following gutgut. 


٦٦۵5۲۴1262۶ 1۶14۸۴2۶3۶۴ 


4.11 Functions 


tio 
functions ere tne ather kind nf subpnoaram. Their headinng use the word FUNCTION rr: 


اد٤‎ 


function. as peri of an Expression. 


PROGRAM M^ORE(QTNFIHT ۴)۰. 
VAR MIMELR: )] ۲۶6۰+ 
FUNCTION AAACANF THEGTHES: 

Tielhisp RiP MP EGER 
REGIN 


= oF the word PROCEDURE and thew have nne ite mors than p 
tee Garemeter list crf ans) comes a colon and the rans of the tums cf value the 
طم ۳ایا عمیں‎ produces. & declared function ss invoked ta the cane wal a5 oc b 


rncedurs nesdinac, pf ter 


E 


.× RAXIZÜNE: . 
IF THEDTHERGDME THEN ] 
FAX: 86 
END: 
FUNCTION 7 
(ONE TUS. THREE: INTEGER: 
BOOLEAN: 
REGIN 
FiRSTLARGEST: 20NESSAAXCTUQ, 
THREE) 
ERO: 
FUNCTION FACTORIAL (NITNTEGER): 
11۲66۶: 
REGIN 
IF RAX(N. C)=ARX(-N,O) THEN 
TOR Ai Isi 


۴ on 


m 
d D^ TH HD 


x- CO TNO D 
٦ 


TRKSTLARGEST(-1,N,N? THEN 
£5 E5IN 
RITEC"FACTURTAL OF ^" 
- "NEGATIVE NUMBER CANNOT " 
"BR CALCULATED"): 
HALT? 
END ELSE 
IF w*-2 THEN BEGIN 
WRITE 
(FACTORIAL OVERFLOW, 
Haldia 
END ELSE 
FACTORTAL: =NSPFACTORTALIN-1) 
١80: 
BEGIN 
BRITE 
("PLEASE FATFR A NUMBERS YY; 
READ(NUDTZER!: 
WRITELN 
(NUmBER:1 " FACTORIAL IS", 
FACTORIAL(ND) 
EXD. 

AAX is a function that ernduces the lerger of the values cf iis two argument. 
value a function produces 13 the last valus it assigns to its name. A functi'Cn نا‎ 
assign a value to its name at least once be fore ending (a full Pascal compiler v2 

check this, but Partial Pascal dogsn’t). 

FIRSTLARGFST produces the value true when the first of its three Daráketers is 
last as large as each of ine other two. 

"FACTORI&L ıs the examole Invariably used to illustrate acretursive runction, one 
that invokes itself. This version of FACTORIAL puts in tuo checks net usuiiiU geen 
the texthacke. Factorials of bci numbers are not calculable nusbers, and 3 
factorial, 19253«455563758 = 40,320, is not representable using Fartiei Fascel's 
iniegers. 

4.12 In the ۱19 
A program must do several things to write cutout to a device. It must declare 
file nass it must execute the reurite statement to orepers ths file for cutout 
5 it must execute write or writeln to actually cerform the cutput. 
شی‎ Similarly ta read innut deta fron a device. à DrOQna"m must declares 2 File n2 
VW its neading, prepare the file for (aput us:ng the reget stetarent ang get Ps data 
read or readin statements. es 
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PROGRAM COP (i590 


VAR CiTHAR: 
BEGIN 
9مم‎ Le 
KRITE(CÓ: 
RERD(TO. 
RFADIE): 
811 0٦ 
A0. 
fhe first procrem uses its oun file names while the cecar 
TrO2ri9s CODY the first and third characters of their fi 
5.13 End of the Line 
Peccel oravides tun functions that wave input easi 2 
one argument. uhicn must be the name Of 2 file (full Faecal 
no arguments, but rertial Pascal does not), and produces a v 
Stands fcr End Of Fils. Eof is true for a file from which sl 
* reat Or reedia ا٤‎ invoked for a file for which eof i5 tru 
rogram halts. Eof is also trus (end attentis to read ars fa 
reset hae not been ور وا‎ ang far a fila for uhich reset has 
which reunites haz heen issued since the moet recent ; 
keuboard. Gress EHTER while molding doesn Sh;FT ta indicate = 
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WHILE NOT FThPIINPUT; DO PRECTH ; 
۶۲٢۵ dioc EN 
URITE(FUZ7) 
EXD 
END. 
This progean copies all of tne characters cf | irst file to its 
can't be waving a goed coay, though, siace it n. 
from another built-in function zoln. Eo E «Ct 
argugznt, unich must be the nave of a ۶۱ ۶ 1 [nt 
an arguuent but Partial Pascal does not re nq} i, 09 
execution if It is issued for a file for which eof is inus. Ezin ا١‎ i 
tf the maxt character to be read from the file (Cand there must be a n 
since of 12 false) is an end-of-line. When reading fros the keuboard 
is an end-of-ling. When 09 fram tape, the end-gf-lina is à speci 
ihe writizln statement writes to the tape, The end-of-line cannot bs w 
anu Su اس‎ 
“In either cass, the ء٤٥‎ shahle 
from a space. ên end-of-line 12 reed, 
PROGRAM CLINE CIMTEUT QUT Pi 
VAR CH:CHAR: 


BEGIN 


m "0 THEN BEGIN 
WRiTIELHILUFIRST CHARACTER I5 " 
EN 

URITE LHCAFND- üF-LINE'"), 


NEVER WRITE THIS", 





CH=" ° THER 
("THE SECONG CHARSCTER " 
"IS EITHER A SPACE 06 ", 
"ERO-GF-LINE BUT NOW IT IS". 
" Th? LATE TO TELL WHICH") 
END, 


A progrsia that correctly copies one file to encther fallaus 


۶۸08848 PEFFECTCOPY(INFIIE, 
QUTFILF3- 
“VAR CH:CHAR; 
EGIK 
RESETCINFILE); 
REVRITECDQUTFILE); 
WHILE HOT EOF(CINCILE) 00 BEGIN 
IF EOLNCIMFILF) THEN BEGIN 
REAGCUNFILE CH); (# CH=" " &) 
URITELH(QUTF TIE) 
END ELSE BEGIN 
READ CINFILE,CH) 
WRITECOUTFILE, CH) 
END | 
END ? 
EXD. 


um 
4.1] Fassina Fi 
Syberogr ats Eq tg 
ine zutorcanae 
Fsrtisl Fasc thu 
subhsrocram!'s fi 


PROCRAR OECTHFT( 
HEXGUT): 
VAR CONVERTITHT 
PROCEDURE IUITI: 
BEGIN 
REWE 
WRITE 
ERD: 
PROCEDURE WRI 
WHAT INT 5 
61 ۱ 





an 


N 
4 
NAM 


ene 


Y 
1 
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(N 
( 


Ct 2 


E 
LN 


EG 











1۶ USAT =1S THER 
ERITEHEY WHERE WHAT DIV id); (2 
LAIR ITE WHERE = 
LHR(MHAT ROD t15*050("0"0)) 
END: 
REGIN ‘ 
IaiTi&tipgCOiTo: 
1811188٤01 ۶ 
REPEAT i 
م٤38)‎ CGH 
8 11:001 R 
IF CONVERTS = 
URTTE REX He RAUT CONVERT) 
UNTIL CONVERT ۵ 
END. 
Procedures THITIAL and URITEHEX each have a text file as a parameter, à reset ar 
rewrite issued bu a zsubarnoren it still valid after the subprogren snd. 
CRITEHEX is a recursive program that writes out a non-negative کو رد‎ ۷۹ 
^^ adecimal notation. (Hexadecimal ۸۵۴2٤٥٣ is base lé: there ers ih nexadecinal 5 
4, ts, 0 theu 9 anf B theu P). s 
Inis prograw first uses procedures INITIAL ta ses. 
tuo Cf sts files. It then enters a loon that reeds nua 
to ste second file and in hexadecimal to rts third file. 
4.15 Devices 
As we have seen. Partial Fascal progr وو‎ c 
filee just betore i$ begins execut "cid by 
Partial Fasral, renrezented bu fou . : 
S selects the standard devices, reen for output, 
[ selects the iipe recorder for im: 
Posslects ine printer for ouicut only. 
N selects nothing. fer input ar ۸۰ 
When a arecras 12 reading insut from the kevooard, Partial Farcal disolays the 
24وی‎ (neut on the TY screen. & slc 2 fisshina cursor shows unezrz 742 niei character 
will anpear. Û pressed with SHIFT deletes the oreviauslu tused character, Neither the 
SHIFT Û nor the deleted character is prcvided te the prora everuting, None af the 
tuped date is nrnyicid ta the nroaram until ENTER is ereszed. ENTES pressed white 
holding SHIFT te the end of the innut File, (&cetusliu Fougy toss 33 characters 2 
before pressing ENTER, Paetial Psscal uiii allow tn to rest ine forse : 





- 


سے 


ہیں 





۲5۵٣۵۰٣۵2٣ ang if cin no longer be deleta.) Undisnlagabie charalienre ire cinverted وہ‎ 
something displagsble when written to the TV device, with the eveception Cf mullves 
(chr ($4)), which haz no effect, EXTER (che(118)), which scis bike a url ہت‎ ! 
With no dats and SHIFT û (chbrt1!9)), unicn erases the preceding chenacier written, 

Fertial Fascal tesnorarilu etcps executing when the & rau re held down write 
holding cove the SAIFT keu. Partial Pescel dass mat recognize the 8REAR veu Cunich 
allows imkey to accept it as the SPACE keu, something vnich ESSiC's INRETS cannct ao), 
Dut SHIFT 4 does allow uou ic stop a procram ta sez what Is on tne screen. This use of 
SHIFT @ makes it difficult to enter SHIFT A es a character. Tf vou need to use SHIFT & 
to enter an inverse video A ہہ‎ ihe grephic on the A neu ar io control the editzn,. hcid 
down SHIFT and nress A several times. It will be recoanized eventually. 

The 9 key pressed with SHIFT, mau be used ie Changs from normal mode to granhics 
5r back anu time the slowlu fiashing cursor enous. 

Qutput written to tape 15 read back im verbatim character bu cneracter. Integers 
are converted io decimal digits, iust as they are when written to the TU. Tf Gow sant 
to store Kimary data on tane, uou will be gled to know that amu of the 2554 values 
chrid} thru zhrí255) mau he uritten to tane ind not confused urta tha end-af- 

i uhich 1s 3 257th value. 
ch dat: cet uritten to tane gets its run name. dts ot i 
file eof becomes irus for the file s 3 
Ogrse*daing the writing anded ar the a the E 
for the file, indicating there uas n 0 2 2 E £l 
CIRE true ai the end af 3 date set Jas uritten be ihe رازم الات‎ f 
& full. 
aram ex رح جات‎ 3 

(ten exec fries, & nu 
alvaus ا ا‎ t or a ٥ fi 
uriteln mag be thing f d 
disappaars. : 
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si sO, Fred, Succ, for, Ls 

Partect rascal his five built-in erithmetic functions, 

oduces the ebeclute value of pt: ieteaer iecusenl, 

The built-in function pred necduess the value are less 
2 Gf anu sieste tuns. 

The built-in function rrodyces the values ons mare 
= of inu simole ture. 

The built-in function ear pred: ear ste gn 
iscal's Square root function, esr not averlatie in F 

The opm function tel , a !neic )ا راچ‎ nj 30 
econd argument specifies hou fer ta shift, The binary res 

rgument is shifted te the left hu the number of bits reac 
pst. Tf the second 2۶۰۶+ tne shift is 
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sscal’s huilí-in procedura plot be used ta cantrcl th 

craonics. Flot takes tnres arguments, a 2calean exeression thet deter 
80٤35 1٤8 “piel is to be turned on (true) or Cf* (false), and tuo inte 
that give the narizontel (9..52) end vertical (¢..42) coordimetes of 
dicoleau et the pixel is a nen-grashics character or a graphics cherac 
ray, the cheracter is get to a bienk space before ploi operetes. 

Partial Fescal’s built-in function soint takes tuc ergumente, tre horizontal anc 
vertical coordinates of ے‎ areshics pixel, and produces trus if the pisel is on end 
false if the pixel is aff or is in a non-araphics or grey graphice character. 





5.8 Machine Language Proarams 

Fartial Fascal's built-in function uzr causas 2 mechine lanzuige precor 
executed. Usr takes B integer argueenis. The first is the address cf the 
'anguage progres. When the wachine language prcarew is entered. the retu 
Fartiai Fascol is on the stack and the AF, BC. DE end Fi resister pairs 
Values specified às the secon? they fifth arguuents of usr. The machine 
erogram mau use up to SO hyutes of space cn the stack. It may modify the 
HL. BC’, GE’ end HE? registers without restoring then. Regis 20, Ff 
should not be modified. The instruction EX AF AF’ should nct xecuted 
praduced bu use is the contents of the BC register وع‎ when fa ine 
nroüram returns to Partie! Fascal. 
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۶808248 FEEKANDPOKECINFUT, 
OUTPUT) 
VAR LOC VALHES INTEGER: 
BESIR 
FOR Lûf:=0 TO 9 DO 
gene فو ےی‎ 
ORD'REMC.LOC.)))0: 
REPEAT 
WRJTFC"LOCATION FOR ", 
"UPDATE? "D; 
.READLLOCO : 
"MRITECUNES VALUE FOR ",LOC:1, 
"2? "), ELA 
READ CURLUE ۶ 
REMC.ILOC. 3: VALUE 
UNTIL EOF(CINFUT); 
MEMH( 15400.) :zMEM2(.15400. 
END. 


This progres first disoleus what would be FEEKCO) thru F 
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SHIFT ENTER after the last 
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"UR following procedure, 


PROCE 
INTEGES 

BEGIN 
WRITE C' THE ARG 
00 ۰ 

END: 


ARS: 


DURE SURPROS (ONE 


MENT TS ", 


using the deta set name SIRE 
using tne data set name 17 


BEGIN 
RYETERY: 
EMD: 


(1) ۵۶ء 


mc 


ا۸0 
La FAS‏ 


fhe compiler, compiling ! A£GE Fro 
PROGRAM LORGFCINFUT QUTPUTS: 

VAR Hile INTEGER, ۴1]0:200] FAN: 

NOLUGE SURE ROG 

and ime ب22۲‎ line اع‎ 

ia á 

fou tuce in “SHEFROGL PAS". 
recorder. and the comoiler cont 





FOARGURENT 


FUNCTION MOSTERY(ALSINTESER) : 





and the 24th line asks agein 
i 2 u u 
Tupe in "RYSTERY2.FAS", position the tane 
cossiling. 
6 8 E CINPUT, OUTFIT) : 
VAR HURESTHTEGER; BIG:BROÜGLEAN; 
$1NCLUGE 26۴ 
PROCEDURE 8ا5‎ 6 ۰: 


INTEGER): 
BEGIN 

WRITES "THF 

ONEAR 3 )رز‎ 
END: 
(x 


ARGUMENT TS ", 
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373) 
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.FAS and that 


om the editor? 
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the compiler finishes 


FUNCTION MISTERYLAT: [NTERERO : 
INTEGER: E 


5.11 Fartial Fascal Built-ins 


Constants nullvsu, marini, false, irus ; 
lunes text. integer. char, Bealean : 
Vans: gem, beau. Wee? : ۔ ۔‎ 
Procedures write, wrileln, read. readin, rewrite. cezeh. gaze. st, lb, galt. fast 
slou, capu. aU: ——— OT MEA 
—— tunztions وع‎ galn, inkeu. abs. erga, suce, gar. che. HE ged. vin. Diii ; (5 


d 


sy 


A3 





4.1 nore ) 1 

The Y, F, I, 2, 0, R and A keus contrcl the editor unen used with SHIFT. They 
cannot be used when the cursor ts on the Zird line of the TV display om when the 
keubcard is in arashics made findicated bu the inverse video © on the last line). 

“The Y keu. used with SHIFT, makes room for an inserteon inte en elready existing 
line of data, The data at the curser and te its right is soved one space toe the rich! 
lasving à vacant space at the cursor, The move does nei tess clece tf :i would shift 
data off the screen to the right. 

The E kev. used with SHIFT, erases the line the cursor is cn and weves sveruthirg 

low it un one line. Once the line is gone, the editor dees not provice anu way ic 

t i 





The 1 key, used with SHIFT, inserts a new line et the curser location. All the 29 
at oar below the cursor is moved dowd one line. 

The 2 keu, used with SHIFT, makes 4 dunlicate cf the line the curser Is on. All the 
Gata below thet lins is moved doun one tine. 

The QO kev, used with SHIFT, deletes the character the cursor is an, Characters ic 
tne right of the cursor move one space to the left. 

The R kev. used with SHIFT, rectores the line the curser is on to whet it wes when 
the cursor moved to it. This :5 helpful if you've made sone mistekes On the lire eno 
want to start over with it. Once the curser has left à tine, (t can no lonisr hz 
restored. 

The T Yau, used with SHIFT. sends the entire contents of the editer’s memory io the 
editoris sacond file, If devices uere selected ic "SNT", the second file is nethinc 
and SHIFT T hes no effect. To use SHIFT cC print data, sneci?u "SFT" whan starting 
the editcr. 

The A Hsu, used uith SHIFT, adds more date to that alrzadu in üenoru. The مت‎ 
r&ads fran its third file (1208) until end of file. Everuthing in the editor's meuery 
hefors the SHIFT A 1s Yer}, î? there is not ensugh ELE to hold the additional dete 
read in, cnlu as manu lines ge will fit are read in and ary nessining dati in the date 
set is ianored. The line the cursor ise on and all lines helou it are saved down az far 
as necessary) ta accommodate tne neu data. Normaliu the dats read in is deta orewiourly 
saved bu the editor, but it ran be any tane date cet written be anu Partial Pascal 
program. 

The D keu, used with SHIFT, makes the editor issue the coou buiit-in srocedure to 
orint the ?4 lines of data currenilu displaued on the TU screen. If no printer is 
attached to the computer, SHIFT D does nothing. 


6.2 Sumsaru 

These keus ¢ contrel the Editor if used with SHIFT when not in Graohice node. Save 
require that the cursor be somewhere in the first 22 lines of the display of dat: 
being edited. The 23r¢ line shows the number of characters of the editor’s memor 
remaining far used and the number of lines of data that ara above those displaved en 
the TV, à 


1: 1 new line. Insert a neu line consisting of all spaces The line the cursor is on 
and ail tines after it move down. Complements SHIFT E. : 
2 of the same. fuslicate the Jine the cursor is on. ALL lines below it wove doun. 
Displau down, Move the displayed area 11 lines farther from the top. Cosclements 


3 


4 
Disoplau up. Move the displayed area 11 lines closer to the top. Comelements 


SHI js 
Cursor left. Move the curser one snace ta the left. If the cursor re already at 
the left margin, move (6 ta the rr2ht merdin one Lime up. Conotements SHIST P. 
4: Cursor down. Move the cursor ane line doun. If sho i< alreado on the Tir lene 


r «n. 
move it te the too line, Camplements SHIFT 7 


A. Gp 


Cursor up. favs the cursor ore ling gp. If it as = uc E Lime. icu 


oe 


۱+ جا‎ the P3ed line. Camplenents SHIFT ہف‎ i: 


Cursor right. fave the Cursor sre space th tier ae OF : Inzide attr 
. margin, hove It to the Left mergie one tine dz i mE 
7: Braphizs. Tf in ncrasl] mode enter arganice vo 
normal made, Note: SHIFT 9 con Ies. 


rig 
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cannot read be read in ss dats readin ^r inven ete the 
character the cursar is on. Chi to the right cf tne eit, 
Complesents SHIFT f. 1 

4: Muit editing. Tf anu changes have heen wade cin Ret (oe gineg 
the editor started if there haven't Been enu Saves or wily ai if 
the changes should he fast, 

E: Erase line, frase the entire line tne curser re con. All lings below it geve ur. 
Complements SHIFT 3. 

RF: Restore. Restore the line the cursor IS nn to the usu rt leczad when the cursor 
moved te it. ! 

T: Tune à - 
second fils. 
camotler mau the 
compiler. 

Yi Unsert. Insert a snace ei the rurzor location. Characters at and to the r.4bt ci (B 
th cursor move right. Does nothing if a character other than s space would he moved 
off the TU disolau. Comnlenents SHIFT 0 m 

a 4 mrevinustu s2 


Add more da ck eto memoru, The Jone 
rs r af 


— 3D 0c 
3 ° 
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the cursor 1s on 4 nove LC seding at end of frie or 
unen mesoryu fe full, : 

$: Save whatever is being edited. Ts the zditor copies from its 
femoru ta iis third file the one for why pe ty typing T as the taird 
character in SHI. A تو‎ 

D: Copy, !is& the copus built-in erocedure Lines of the TU displ 

6: Set something te edit fron tare. Tf any a nive beso wade since the Les 
Save or Get (or since the editor started if there Hever t been anu Saves op Gets tne 
editor asks if the c eS should Es lost. To perform the gei, the editor erases 
everything tt hes in memory and realsces it arth what 14 reeds from its third fiii. 
The third file is the one for which YIU selected itane bu tuning ihe T in "SNT", 
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Khen the compiler cannot understand something in a orceran, 14 writes the unn 
۲08 va bier ہو‎ On rts Cart) and a musber thet descr. bes the compiler مو ود مج‎ 
ror nat dre d he مو‎ HP SS qM. When this hiapnsnz, lock us hunger (n the 
foliswina list of e s2e hou it scpiraes to ucun praoceásm (the compilter’e 
diso lau 2 Continues for ona or tuc sum st 
مہم مرت‎ h an undeclared variable, thi 
eppor the selectian disolau, gress 
"Qu which is si!il in the editor 

1 it is declared. This re scuzt 
nage stimes due te mizzpzliisna the n ^ 
Sone getlaration. 

ce at ihe same meting level. 

Exauple: 

VAR 50520128۰ CHAR: 

PROCEDURE SONENANE: 

3: A pracedure or function is used with more or fewer sireneters than ine in ite 
declaraticn. 

Exanple: 

KTzABSCT, D) 

4i Part of an expression is invalid. Where the compiler exnected to find à 
constant. varisbie or function cali it found something elisa. This can be causes By 
ececifuing a text file's name in an eynression, 

۲8 1 

RITE CVAR) 

3? The lower bound of indes of an arrau is less than 0, This is leagl im full 
Pascal, but not sllowed in Fartial Pascal. 

Exaaole: - 

VAR TOOL UW: ARKAY(.-1.,3.9 OF 

EOBLEAN; 

&: 4 statement is not rernanizabls hecause the statement dase nct beain with IF, 
WHILE. KEPEAT, CASE, FOR or 3 nate. 

Example: 

IF ACB THEN 

P:zA; (#ILLEGAL SEMICOLON?) 

ELSE 

۶:0 

that 3s 
function. 





PROGRAM ۲7ء‎ , QUTEUT; 
BEGIN 
INTEGE* 


8: à statement is not recroniza^le berause it begins with the nane of à ÓCunrtian 
but ts cuiside of the function’: declaration, G value mas be esiianed to i functio (5 
ünlu ou the function's awn statements ind thzc'stdtegimbe 38 ias nicied procedures ce 
function. : ۱ 

9: Ihe Source program does not have e constant where ii ic required im one of the 
following situations. 

1. After an eQual sian in a CORST declaration. 

2. As the louer bound cf a rena. 

3. 8s the upper bound nf 3 range. 

4. After the OF in a CASE statenent. 

ve After a semicolon in a CASE statement. Although full Pascal allawe i: cons جو ڑا‎ 
hefore the END that ends a CASE stetenert, Partiil Fascil allows i: مب ریو وو او روج‎ 
refore the END nor before the (cptional! OTHERWISE in = case eteterent, 

6 1 


VAR ۵2:4888۸۲۴۲۱ .,4۰,588)4( , OF 
INTEGER; 


10: The upper bound of 3 range is lower than the louse bound 
3 ٤ 


em, 
@ 


iR MIXED : ARRAY ¢.2..1.) OF 
INTEGER: 


rae 





11: A writs or tel 2 : if niti it 
text File oubout | nt 3 0865 aes cr oa res 
does not snicifu 3 text file to read from and the default text 
declared in the PROGRAM header. 

Earls: 

PROSRAR UHOHCINFILS CUTFTLED; 

RESIN 

URITE("HELLD" j 

12: A closing quote does not appear cn the same line as the ccrfeisandiag یور مومع‎ 
guste. ln Pascal, quotations must be contained cn a single line, 

Exarole: 


WRITECQUTFILE "THIS TS TOO LONG 3 
"0 FIT ON GHE LIE") ۱ : 


13: A write statenent does not specifu any data to write or a reed statement does 
not specify anu variable to be read. 

Example: 

WRITECQUTFUT) 

14: A várisble is declared to he nf tune text or of و‎ tupe 2801031 1 te ئا‎ 
ا8آ‎ 5 is legal in fuil Fescal, but not allowed in Fartiel Fascal. In Partial اج ونم‎ 
only parameters may he text Files, 

Examole: 


TYPE AYFILES=TE4T: 
VAR OQPS: AYFILES; GOFS2: TEXT; 


15: A procedure or function is used with 3 parameter list that does not have a text 
dise required bu the procedure ar function's declaration. 
Example: ; 


66 LF 
: VAR ARC! INTEGER: 


REGIH Bod اہر‎ ob P 
REURITE CLEC) 


16: The name following the word FOR ic nat the nate Gf 4 signle variable. 


SARRAYGC.O. s. OF 


18: A narineter jn a read or nisdln paciseter List is noi 2 variable. 
Fx amc 1 2 


J9: The 8ں‎ 


& 0f à tune uas required, but noi found, in ons of these situstians. 
as 1. Follnuina a cclon in 2 procedure or function's Dársseter list declaration. 
2. Fnllowing a coion in a Function's tuce daclaratice (after the funckizn s 
parameter lisi. 
r 


i 
ces ANG enumeration tupes are noi alioued in procedure end function heeders 





tno be of tona text, Fascal alicwc‏ لوت 


functions 





20: A der حم‎ less than —02789, ALT Series! 
numbers in the ranas -32748 thru 32767. 


Exewple: 
XY2:2452000 


decimal number, 


مم 
.4 
UO T»‏ 
Ss‏ 
0^ 
ہے 
a‏ 
> 
a‏ 
cr‏ 
D‏ 
جب 
fı‏ 
r1‏ 
Ds Sd‏ 
Du‏ 
"S‏ 
0 
6 
ote‏ 
"n‏ 
3 
orf‏ 
E‏ 
ib‏ 
rc‏ 
tus‏ 
ct‏ 
iD‏ 
pum‏ 
+ 
oO‏ 
Em‏ 
سے 
En]‏ 
x‏ 
n‏ 
a‏ 


:  @at An opening ounis wart is immediately followed bu a closing quote. In Pascal, 
when quotes are used, at least ore character must be between the quotes. 
Exagpls: 


23: The character following a fall ^i 5۱ was nct an "I" (for $INCLUDE) and was nc 
à hexedecimal digit ("Q",,"9","A",,"F"), Note that no space is allowed after the 
aotlar sian. 

Example: 


. 24: The source progres ended before the terminating period. ۵ Pascal program aust 
(X end with the reserved-uord END folloued bu 3 ceriod. Thie error i¢ capetimee Faia he 
j omitting à 318:08 when rcospiling frow tere. | 

Pot A character lonctint i3 اواب مع‎ bu à ^ or - sian 


Example: 


CONST LASTz'Z': FIRST=-LAST; REO Aog RJ Bios 


34: Án invalid cheracter js in the ¢nurce orcaran. inverse vider rearacher: 
anics cheracters. unprintable characters. "7" end ' 6" mau anpein in z2 Farts: 


i 
ا‎ program onle if quoted cr in a comment. 
د۶‎ 


227: A nrocedure was declared foruard. but not redectored urthin tre jewedj asl 
enclesime orocecure. funtion <" oroargs. 
Example: 


PROCEDURE DEFER; “FORWARD: 
REGiN (2 MARKS THE BERINNTHG GF 
FRE STATERENTS AND ENC ü- 

THE DECLARATIONS OF EMCPOSE <) 












'R: A procedures aor function sesder wis foi WARD but tns Forward 
declaration is not allowed far ^ne of the fe ۰ 

1. Whe procedure or function wee previous! ary ird 

2. The procedure cr function uis declared ers. € 
for a oreceduré or function decline? forward al, fu 

3. lhe procedure or function iz à functio may be 
full Fascal but nct in Partial Fesral. | 

Exemple (reason 25; 

PRDCEDUSE RESDLUECTITNTESER Y: 

FORWARD; 

"y: The nesting level nf à function ar S more than eichi, Partial و یووم‎ 
supports nestin: of functions 2nd srecedure dooth sicht, counting the nain 
progres as depth one and tre first nrocedur fon declared as depth iuc. 

30: The upper bound nf the inies of an inning | liri ac more than 4053, Srraus 
in Farteal Pascal way have no more than 4094 2leme . Since tne firet index oF an 
arrağl in Partial Pascal is always zero, the larges der allowed tp Partial rascal rs 
WEN 7 

5+ ےھ 

VAR TOORTG:ARRAYI.0..25050.) GF 

INTEGER; 

41: A parameter in a praredure حم‎ function declaration is decli to be af tune 
text but the perameter is not one cf the first 19 saraneters derlaread fer that ! 
ürocedure or function. in Partial Pascal, eracedures and functions are allowed no mere 
than 10 text parameters. and ali tert garineters must declered auona the first ٤۴ 
oarameters of a procedure or function. : 

Example: 

PROCEDURE QUTTEN(A , 8,6, , 

F.G.H, I, J: INTEGER:OUT: TEXT); 

42: Tha Pascal main program, or one of the functions or procedures, declares 
variables that take up a total of more than 55514 bute: of memory. 

33: More names ere declared then can he meld in the menoru evailable £o the 
comciler. This بد اتمم‎ can te avcided in tuo uius. Fewer names can be declared in the 


ual 





, Program (this is not usuallu à وو‎ (Gea, On mOr& menoru can be wade available to the 
" Compiler. The editor’: use cf sencrü Can be ars more for rs CCAD 
hu Saving Some or all of the چا ع۶۳0‎ ah ture ind Roller read rt} fran tage 
bu using the INCLUDE £acilitu, 
ضط‎ Bore than 255 procedure 2۸37/70۳ furcti 2 Ceclarzd, 
8! A erocedure or function is declared = than 255 oscaweters, 
36: fore than 26 text files ert declare PROGRAA header, 
47: The combined nesting of CASE stetenen statesenis and nérentheses in 





expressions is too great. 
42: A name is expected in one nf ¢ 
J. The name of à nrooram in 3 PROCR 
1 FR 


2 
2. The name of à text file in a PROGRAM header 
3. The mane 2 ahie being declare he VAR reserved word 
4. The nine 3 Q4 3r PROCEDUR lared, 
S. The nine t 6 CEDURE ^esdina. 
á. The nime eter list of a FUNCTION er 


PROCEDURE decl on. 
7. The name i ips t colen rng the oerameter list of a FUNCTION 
declaration, 





uu 





] Kememher that the used sc names in Pascal orsarene 
$ and that Fartial Pac 2 unlag iiloy the use of VAR. FUNCTION or 
PROCEDURE in s naraneter list, 
Examnls: 
PROCEDURE ۱۲۹۶۲۴ A: THTESER) ; 

4%: THEN does nat follou the candition in en If statement. 

Example: 

IF ٥ 

A:=-4 

32: Metther TO nor DOUNTO fsliaus the tinzi esneessich yn 3 FOR etstenent, 

۲× 1 ! 

FOR اإاع؛×‎ TON 2 DD 

v2: DU does nat follow the condition cf a UHILE statenent er 00 does not Follow the 
, $8cond expression of a FOR chatenent, 
i Ex amo li: 


+ FOR X:= 1 TO 2 BEGIN 


« S8: OF dozs not follow the expression ^ 3 CASE statement or OF does not fallow the 
Word ARRAY in i VAR declaration, 
Examole: 


CASE &PS(Y) وع‎ 
62: A program does nat hegin with the ucrd PROGRAM. 7 
apnliss: 


> 


ne cf the folloving 


J. Neither 4 semi-colon nor the Word OTHERWISE nor the word END follows a ctatement 
in a CASE statenert, 

2. A statement in a series of Statements beginning with BEGIN is not fallewed QU 2 
semicolon or the word END. Exanp le: 


CASE &PS(Y; OF 
a J,2:1:70 (eRISSING SEMICOLON) 


,3 ےیل 


: 50 











72: A statement following the uord REPEAT is fallaued neither bu à semicolon r^r hu اتھ|‎ 
the word UNTIL. ×8۰ ۱ و وی‎ - 
REPEAT 
X:=X-1 
WHILE AC.X.0 2» 
74: The word folionuing PACKED in 4 VAR Gacizrsztion is not ARRAY. E«aüple: 
VAR X:PACKED INTEGER: 
83: An equal sign is expected after 3 nate being deciired in a CONST or TYPE 
declaration. 
Example: 
folloue the nave nf i 
8 
WRITELHCOQUTPUT: 4) 
91: (ine of tne Following ا مع‎ 
l. pne oiazr than s comma ce colon fTollous à nimi betes وج یا چو‎ ip 2 VAR 
declaration. 
2. Something ather thas a comma ar colen folious i: constant n 3 CASE stetewer’ 
Eanes! 
VAR X,Y, 1: INTEGER: À 
94: & reauired جح جع‎ iS not rra مب‎ In nne of the folis. na glasses: 
1. After zanstant : ê CONST i 
2. Sfter tuns 
4i. After 
4, After 
s. After 
fuTTrTr OR 
VAR X,Y: INTEGER Ly 
JGIN 
$8: An assignment Symbol, i= ۶ا‎ not present after a variatts وہ وق‎ ase:aned : 
value, : 
٤× 5 
VAR 23:808] ۶ 
BEGIN . 
8۶2۴۳ 
96: A tune becan with a constant which uss nct followed bu in zllinzie, 
Example: 
VAR ONETOTEN i. 19, 
77: The terminating END sf a orceoram is not followed bu a ہ۱ جج‎ : 


PROGRAM SFF(QUTFIIT): 











5| حم‎ 
CIE 
^* BEGIN 
WRITEC"HELIO, WORLD") (004 E 
END; 
98: One of the builtin builtin srocedures, write or resd, is not followed by an 
Opening Cerentnsesis. 
:۰ءء‎ 
WRITE; 
99: A closing narentheric is eimected at the end of an exprescion im parentheses ar 
3 comng or clesing 6 ۱ 5 expected 3 t i a situations: 
1. In the list of FU 3 tion. 
2. In the list of names an 
3. In the psraneter li JRE or FROGRAA heading. 
Example: 
PROCESURE SHB(HQURICS.F Of} 
4 1009: An onening bracket, í.. 18 expect 
1. After the ward ARRAY in à VAR decla 
= 2. After the name of an aress pm am ss ۰ 
Example: 
VAR AECDSARRAY(.1..4,) GF THAR, 
REGIA 
ABCO(1: =4 
101: A closing bracket is expected in ans of the following places: 
|. After the index in the decleration of an arrau variable. 
4. After the index of an array variable in an assienment statement or evsression. 
Exaupls: ! ! 
VAR AECD:ARRAYC.1., 2) OF hse, 
ہے‎ 7,2 tes5lstian Codes 
! One of these codes is disnlaued bu Partial Pascal as the first number on the last 
bine of the TU every time a crsaray ends svecuiion. (The second number uii! determine 
In a future release of Partie! Pascal, where in the program execution ended. T6 the 
Orooram ended bu executina tre hal} procedure, he orcarep r its aun 
completion code by the value af the Paraneter supplied ta the halt oracedure. Partial 
Pascal disolaus that value AOD 256. Dtheruise Farts al Fascal assigns one sf the 
following comoletion codes. ! 
28: The program ended hecause it attemnted to divide a numher bu zero, The valus 
following the word DIV was 0. _ 
29 Ths program ended because it attempted to take a number modula zero or a 
negative numher, The value follouing the werd MOD was ists then or equal to 0. 
30: ihe program ended because it ran ut of menory. Tru to make more mezore 
available 45 the orogran bu deleting as much as nossible from the editor's 8 ء۹٥‎ 
31: The nrogras ended because an arrau index was cui of the bounds allocated for 
that arrey. Tne index was either less than O or orester than the upper bound dectared 
for the array. 
432: The program ended because a non-nunmeric character (other than a soece) wes 
found when the وو جوم‎ tried to read a nunber from a text file, 
2 Ski The program ended hecauss 2 number raid from à ient file was either gregter 
7 then 317787 ar liess than -327:5,. n | 
34: The program ended beciuse it tried ta read from. a file that wee at end cf 





52: 






(le. That is, either reget had not been issued for the file cr rewrite fer the file 

i; Laan iesued since ۱١ GAS} recant reset or the file bad no data to he read 1۱ 

iie) or ali the dais nad already been rn o£ the reed or readin tha! 
program ta end. | 
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